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こんにちは ダ 



高 橋 はるみで 一す ッ〃 

ついに、 『FM くん』 の 『ゲー^ 'ライブラリー』 を、 はるみつ くつち やい 
ましたよ お 一。 
ほ 一ん と、 お またせし ちゃい ました。 

えと、 『PC-8〇〇1 くん』 『PC-6〇〇1 くん』 の 『ゲー^ 'ライブラリ 
一』 がすつ ごく 好評だった から、 『FM くんの も だしてよ ぉダ』 とか 『どう 
して FM ぐんの ださない の』 なんて 『おて がみ』 たぐさん きち やって。 

なかには、 『FM ぐんの つ <ん ない と、 あしたの 空気が 吸えな ぐな つち や 
う ゾア』 なんて ひとまで いて、 はるみの 『ちっちゃ なむね』 がます ます 『ち 
つち やぐ ダ』 なつち やい ま した あ ！ クスン r 

さて、 この 『はるみの ゲーム' ライ ブラ ij 一 PART 1』 は、 はるみが、 
『FM<ん』 のために 『いっしょうけんめい 7』 つくつ ちゃった 『40 本』 
の ゲームの うち 『前半 20 本』 を あつめち やった もので 一す。 ェ ライ, 

のこりの 『20 本』 は 『PARTn』 の ほうに はいって て、 もうす ぐ 『発 
売厂』 します ッア 

『キング'] ング J 「 』 『まんびき 少年 ゲーム』 『ジ ヤン ビング 'エイリアン』 
『チャイナ' シンドローム』 『平安京 エイ |J アン 特別 編』 『ビルディング • クラ 
ッ シュ』 『いなばの しろう さぎ』 『ス ベース' ス卜ラ クッ』 『E. 丁.』 『しば か 《0 
ゲーム』 『オリエンテーリング 1300』 r MARSj 『宇宙の ゴ S やさん』 …… 。 

もう、 ほんと 『おもしろい 7』 ゲームば つかりで、 こまつち やう〃 

とっても 『おいしい ァ』 ゲームの 『フルコース』 20 品。 
みなさん、 ぜひ 一度お めしあがり < ださい。 



フォー サイ 卜 企画 部 高 橋 はるみ 



FM-7-FM-8 
はる awo^ — ム, ライブラリー 

CONTENTS 



o 


o 


スペース • スト ラクッ 

4 


MARS 

40 


o 


o 


あるけ あるけ ゲーム 


しばかり ゲーム 


12 




o 


o 


スーノ \° "^ィ モン 


宇宙の ゴミ やさん 


18 


56 


O 


O 


タイプ 練習 (ゲ 一/^) 


平 S§i イリ アン (特別 纆） 


26 


64 



o o 

、) シ ZL 水道 1 



ビ Jb ^ィ ング 'クラ • クシ ュ 水道管と ねずみさん 

32 74 



2 



o o 



いなばの しろ ラ さぎ はや ラち マック 

82 130 





Vir 


T^*^ ノー z ノ UY • 


みつば t ^フ" *b の 冒 Bft 


92 


136 


O 




E.T. 


オリエント リング 1300 


102 


144 


® 


O 


まん 微 少年 ゲーム 


ジ ヤン ピン グ* エイリアン 


110 


152 



O Q 

] ー厶 オート レー: 



チャイナ 'シンドローム オートレース (1 画面 ソフト) 

120 160 




えと、 はるみ は、 いつろ 一ん な ひとから 『「S P A C E STLUCTS」 



つて、 いったい どんな 意味な の？』 つて 聞かれち あいました。 

なんと、 この 『STLUCTS』 つてい うの は、 『じしょ』 を しらべて 

みても 『のって な 一い 7』 ん です ッ ァ だって ェ、 二の 『S T L U C T S』 

つて、 はるみが 『かってに』 作つ ちゃった 『単語』 なんだ もん。 
はるみが 『タイ トル』 を 『いっしょ うけんめ い』 考えて て、 『ピ ピッ ァ』 

つて、 ひらめい ちゃった の 力 く、 これな の。 
ねッ？ いがいと 『カツ コ イイ/』 タイトル でしよ？ 二れ は、 はるみ 

の 『おきにいり/』 なんです。 カツ コ イイんだ もん〃 

あそび かた 

えこ、 RUN しちやう と、 まず 『ゲームの 説明』 力く 『画面』 に PR I N 
されち やい ます。 

この 『ゲームの 説明』 をよ 一く 読んで から S キー を 押す と、 ゲームが 
始まって 『画面』 は 写真 0 みたい になる の。 

さて、 ゲーム 内容 は、 上から 降りて く る. 『敵のう ちゅう 船』 力く、 地上の 
『シールド』 を やぶって 地上に 着陸し ちゃわな いように 『ミサイル 砲』 で 
やっつける つてい うのな の。 カン タン f 

それで、 ゲームが 始まつ ちゃうと 『敵のう ちゅう 船』 が 地上へ 着陸し よ 
うと、 つぎつぎに ワープして 降りて きち やい ます。 

二の 『う ちゅう 船』 力く 『シール ド』 を やぶつ ちゃう と 『GAME 0V 
ER ア』 しちやう から、 『うちゅう 船』 力く 『シールド』 を やぶつ ちゃう 前 
に 『ミサイル 砲』 で やっつけち やえばい いの。 

でも、 『敵のう ちゅう 船』 だって 『シールド』 を はって るんだ から、 そ 
う カン タンに はやつつ けられな いの。 タイ ヘン/ 

それじゃ あ、 『どうしたらいいのお？』 かってい うと、 『うちゅう 船』 
の 急所 は 『まんなか,』 だから、 『うちゅう 船の まんな 力、』 を ねらって 射つ 
ように すれば いいの。 こうやって 1 機 やっつけ ちゃうと 『10 点 プラス』 で、 
『38 機』 やっつけ ちゃう と 『うちゅう 船』 は 『こうさん.'』 しちやい ま一 す。 
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SPACE STLUCTS 




寺 写真 © 『うちゅう 船』 が 攻めて きた あ, 

I^HIIBHIH • キー 操作 



REPLAY ■ 

(スペース) — ■ ■ B ' 

レーザー 発射 



o プログラム 'リスト 



10 REM 
20 REM 
30 REM 
40 REM 
50 REM 
60 REM 
70 REM 
80 REM 
90 REM 
100 DEFINT A 



*** 普 #* 

*** <SPACE ST し UCTS2> *♦* 

*** 

*** By 

HARUMI TAKAHASHI 

♦** 

************************ 



-R E M 文 



-ス ヒー ドア 



110 
120 
130 
140 
150 
160 
170 
ISO 
190 
200 
•2 ID 
215 
-220 
230 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 



WIDTH 40 , 25 = CONSOLE 0 ， 25 
CO し OR 7i0 ： PRINT CHR$(12) 

GOSUB 8000 — 



H=0 

S=0 :X=I6 :VX=0 :OVER=0 

FOR 1=0 TO 5 

AY (: I ••) =0 

AX(I)=I*6+1 
NEXT 



ンフ のために 整数 宣言 J 
- 初期設定 



- ゲームの 説明 をし ちゃう 



- 変数の 設定 



CO し OR 

CO し OR 
PRINT 
PRINT 
PRINT 



，0 ： PRINT CHR$C12) ； 



： SCORE 



□D =ST し UCTS= 



□ ]l 



CO し OR 7 

LOCATE 1,1 =PRINTUSING "匚 s 
+M*###IT' ； H 
410 ' 

LOCATE 16^1 

CO し OR 3 -PRINT "=" ； 
CO し OR i "-PRINT "ST し UCTS"5 
CO し OR 3 SPRINT "=" 



SCORE 



01 =ST し UCT か 



:MAX 



420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
56D 
570 
580 



し INE (: 0,24) -(37, 24) • 
CO し OR 6 

LOCATE 0，20 ： PRINT " ( 
し OCATE 0,21 ： PRINT nj 



； SPCC 36) ； "、 
5SPCC36) ； "、 



画面つ 
レ ド をつ 



くつち やう. 
くつち やう 



BEEP 1 

FOR I 
BEEP □ 

FOR 1=1 
NEXT 



TO 100 :NEXT 



TO 500 



-時間 ま ち 
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590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
10S0 
1090 
1100 
1110 
1112 
1114 
1116 
1118 
1130 
1140 
1150 
1160 
1170 
11S0 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1265 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1370 
1380 
1400 
1410 
1420 
5000 



FOR 



TO IS 



し OCATE 

し OCATE 37- 



,20 
>20 



： PRINT "-" 
： PRINT "-" 



FOR J 
NEXT 

NEXT 

REM 



TO 20 



ドを はる, 



MAIN LOOP 



WHILE OVER=0 



FOR C=0 TO 



IF. 
IF 



INKEY* ： VX=0 
I$=CHR$(29:) 
I$=CHR$(:2: 三:） 



AND 
AND 



X> □ THEN VX=- 
X<31 THEN VX= 



X=X+VX 

CO し OR 7 

し OCATE! X+2?22 

し OCATE X ,23 



： PRINT 
： PRINT 



THEN GOSUB 5000 



-< をお した 1 ? 
- > をお した？ 



： サイ ル砲を P R 
： サイ ルを 発射.' 



IF AY (0=0 THEN GOSUB 5100 
IF AY(C)=0 THEN 1300 

P=SCREEN (: AX (: C :) +2 ? AY (: C :) ••) 

IF P=32 THEN GOSUB 5300： GOTO 

し OCATE AX(C:) ， AY(C) ：： PRINT " 



AY(:C)=AY(C) + 1 
CO し OR 7 

し OCATE AX CO »AYCC) 
し OCATE AX(:C)+2，AY(:C:) + 1 

IF AYCC)=19 THEN OVER- 



1300 



： PRINT " (+*+) " 
: PRINT "a" 



一 やられた 1 ? 

うちゅう 船, ] をけ す/ 

うちゅう 船 j 



NEXT C 



WEND 



IF 0VER=1 THEN GOSUB 5500 
IF 0VER=2 THEN GOSUB 5700 

GOSUB 7000 — 



を P R I N T 

シール ド, を やぶった？ 



ゲーム オーバ一？ 
-38 機 やっつけた？ 



ケ'一 1 



GOTO 180 



REM 



BEAM SHOOTING SUB 



5010 
5020 
5030 
5040 
5050 
5060 
5070 
50S0 
5090 
5100 
5110 
5120 
5130 
5140 
5150 
5160 
5170 
5180 

5190 
5200 
5210 
5300 
5310 
-> 5320 

-5340 

3360 
5370 
5380 
5390 
5400 
5410 
5420 
5430 

5440 

5460 

5480 

-> 5520 
5530 

5550 
5560 
5570 
5580 
5590 
56D0 
5610 
5620 
5630 
5640 



BEEP 1 

しェ NECX+3, 19:) — （X+3 



BEEP 0 

しェ NE(X+3, 19) - （X+3, 3:)，" " ,7_J 



…ビーム. 発射.' 
ノビ ーム をけ す. 



REM 



： RETURN にに 

SET SPACE SHIP SUB 



R=INT C RND CD* (: 10 -ェ NT (:S/ 100：) :) ：) 
IF RO0 THEN RETURN 



AYCC.)=-3+iNTi:S/30:) 



CO し OR 7 

し OCATE AX CO , AYCC) 
LOCATE AX CO +2 » AY CO - 



： PRINT " (：+*+) " 
： PRINT "A" 



う ちゅう 船..； の 高度 を 決める, 
うちゅう 船 を 表示 J 



REM 



： RETURN ：：：：：：：：：： 

BOMB SPACE! SHIP SUB 



FOR 1=1 TO 10 

BEEP 1 :BEEP D 
NEXT 



し OCATE AXCC) , AYCC) ： PRINT " 
AYCC)=0 :S=S+1G 



'ビ- 



うちゅう 船 をけ す.' 



1 ァ • フラ: 



CO し OR 7 
LOCATE 9, 



:PRINTUS1NG "#####" 5S_ 



〔 コア を 表示 ァ 



CO し OR 4 

LOCATE S/10-1 ? 24 ： PRINT 



IF S=370 THEN 0VER=2 

： ： ： ： ： RETURN ：：：：：：：：：： 

REM —— - GAME OVER PRINT SUB 

FOR 1=1 TO 75 



-37 機 やっつけた？ 



BEEP 1 
FOR J=l TO 



BEEP □ 
FOR S=1 



NEXT 



TO 



:NEXT 



:NEXT 



ビー ッ fi 



CO し OR A- 

し OCATE 4i7 ： PRINT " , 
し OCATE 4,8 -.PRINT "| 



I H 



I H hH 



SPACE STLUCTS 



5650 

5660 

5670 

56S0 

5700 

5710 

5720 

5730 

5740 

5750 

5760 

5770 

5730 

5790 

5: 三: 00 

5S10 

5820 

5830 

7000 

7010 

7020 

7030 

7040 

7050 

7060 

7070 

7080 

7D9D 

7100 

7110 

7120 

7130 

S000 

SO 10 

S020 

3030 

8040 

S050 

8060 

8070 

SOSO 

S090 

8100 

8110 

8120 

S130 

8140 

8150 

8160 

'3170 

8180 

8190 

8200 

8210 

8220 

3230 

8240 



し OCATE 



,9 ： PRINT 
： ： RETURN 



i i i i j i - 



REM - 

CO し OR 2 
LOCATE 7， " 

CO し OR 5 
し OCATE 4, 7 
し OCATE 4, 9 
し OCATE 4 ? 11 
LOCATE 4, 13 
し OCATE 4, 15 



YOU SUCCEED PRINT SUB 



: PRINT YOU SUCCEED 



: PRINT " ァ: T タ 八， ,- SPACE SHIP」 ラ 

= PRINT " チれ' ソタ ノ テ" 「SPACE SHIP」 

SPRINT " : ノ マシタ o サ ス 力" ァ！ ！'' 

SPRINT " 才力 ケ、、 テ、、 ， 「チ 千 ユウ 二八 「、イワ 

： PRINT " 午 7- ンタ o アリカ" 卜ゥ！ " 



50 す-」 卜ズ リケ" 
i\ 「コゥ サン」 " 

j tr モ卜" ツ テ" 



： ： ： s ： ： ： ： ： ： RETURN ：：：：：：： = ：： 

REM GAME OVER SUB 

し OCATE 4,11 ！: CO し OR 7 

PRINT PUSH ON し Y USD KEY 

I*=INKEY$ 

IF I$<>"5" THEN 7050 \ 

PRINT CHR*C7) ； 

IF' S>H THEN H 二 S 



キー入力 まち. f 



\ィ スコア を 登録 ァ 



： ： 2 s ： ： s ： ： ： RETURN ：：：：：：：：： = 
REM DEMONSTRATION SUB 



LOCATE ： 三い 0 ： COLOR 1 ： PRINT "J"+STRING* (21 1 "■"：)- 
LOCATE 12,0 '-CO し OR 7 = PRINT " SPACE STLUCTS " 
LOCATE 8,1 =C0 し OR 1 ： PRINT STRING* (22 , "~" > 

し OCATE 0,3 ！! CO し OR 5 



PRINT ".PRINT 
PRINT ： PRINT 
PRINT ： PRINT 
PRINT ： PRINT 
PRINT ： PRINT 
PRINT ： PRINT 

CO し OR 3 
LOCATE 2， 4 
し OCATE 28 i 4 
し OCATE 3， 6 
し OCATE 11， S 
し OCATE 28， 12 



" ""ケ 、、一 厶 すィ 3 ゥ j 八， ェ カラ オリ テ フル r SPACE SHIP.. 
"ラ r 八、 、リア」 ラ I 7 フ、、 ツテ r * シ'、 3 ゥ j 二 r チャフり フ！」 シ チサ 

" ワアイ bo 二， r s サイ ル ホウ j テ、、 リク チャウ ッ テイ ゥ r/ r、 一 

"厶 j すノ。 カーン タン！ 

'• ソレ テ" ， テキ ノ r SPACE SHIP」 ラ r 38 千」 パリ ケ チヤ 
' 'ゥ 卜 r SPACE SHIP」 八， 「 コゥ 1 T ノ j シ マース！ 



： PRINT "ケ" ー厶 すィ 3 ゥ , ' 
： PRINT "SPACE SHIP" 
： PRINT 'リ 、、、リア' ， 
： PRINT "ミサイル す、 ゥ" 
： PRINT "3:3 キ'' 



し OCATE 0，16 =C0 し OR 6 

PRINT ,, r <«CAST 

FOR 1=1 TO 6 
PRINT "| 



厂 <<<KEY 



ゲームの 説明 
— ワク を 表示 



： 三: 250 
S260 
S270 
3280 
S290 
8300 
S3 10 
8320 
S33CD 
8340 
： 三: 350 
8360 
3370 
S3S0 
8390 
3400 
8410 
S420 
8430 
8440 

8460 
S470 
84S0 
8490 
3500 
8510 
8520 

8540 
S550 



NEXT 
PRINT 



CO し OR 7 

し OCATE 32, 17 ： PRINT 

し OCATE 32, IS SPRINT 

し OCATE 32， 19 ： PRINT 

し OCATE 21,20 nPRINT 

し OCATE 21,21 SPRINT 

し OCATE 21,22 ： PRINT 



SPACE I 



i i i ~ i I — i 

I 1 I 1 I ！ 



SYMBOL (:30普16，21长£::) ,CHR$(:29:) i,2 
SYMBO し （:36并16121并£::) i CHR$ (28) ,2? 1,2 

CO し OR 7 

し OCATE 1,'丄： 三： ： PRINT " (>*+：) I " 

し OCATE 1, 19 ： PRINT " a し 卜 ひ |」" 
CO し OR 2 

し OCATE 1,21 : PRINT "SPCE SHIP MISSILE' 



- 操作 を 表示 



キャス 



を 表示 



CO し OR 7 
し OCATE 



I$=INKEY$ 

IF I$O n 5 M THEN 8430 



24 ： PRINT PUSH ON し Y 匚 SI] KEY 

' キー入力 まち 

':'*t ，二' U 

RETURN にに" に 二 = 



REM 
REM 
REM 



FORESIGHT P し ANNING SECTION 




10 月 18 曰 ■ はれ 

きのうの 『文化祭』 の 代休で、 きょうは 『おやすみ』 ； 
ほんと は 『パ』 レ』 といつ しょに いたかつ たんだけ ど、 きょうは、 
『B i t - i n n』 にもい きたかった から、 はるみ ひとりで 『ョコ 
八 マ』 ぺ おかいち の, 

それで、 けっきょぐ 『おかい もの』 したの は、 『ふゆに きる およ 
う ふ <』 に 『LP』 に 『小物』 を ちょっと だけ。 

ほんと は、 『カヮ ユイぬ いぐる み』 があった から、 それ を 買いた 
かったん だけど、 がまんして、 そのかわりに 『土屋 さん』 の 『ライ 
ス • ミュージック』 を 買つ たんです。 

『およう ふ <』 は、 ついこの まえまで 『なつ 7』 だった のに、 急 
に 『ふゆ/』 になつ ちゃつ だから、 あわてて 買った の。 

でも、 どうして、 はるみの 『にあう/』 のって 『こどもつ ぼい』 
の？ 

はるみ は、 もっと 『おとなつ ぼい』 の 着たい のにい, 

そうそう、 かえりに 『B i t - i n n』 ぺ いったら、 『はるみの 
プログラミング 'レッスン』 がお いて あつたの。 うれし 一い/ 

それで ネ、 それ を 『高校生 < らいのお とこの こ』 が 手に とった か 
ら、 はるみ 『やった ぁダ』 つて 思つ たんだけ ど、 そのまま、 もとに 
ち どし ちゃい ました。 ガ ック 1 

ほんと に 買って ぐれる ひとい るの かしら ？ 

もし、 あんまり 『うれなかったら』 、 アキ パ八ラ の 駅前で、 『コ 
レ、 わたしが かいた 本です。 おねがいします、 買って < ださい,』 
な あんて し ^ りして。 ハハハ …… 。 （と、 ちからな < 『わらう』 ） 
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4 あるけ ある 

この 『ゲーム』 は、 つぎつぎに あらわれる 『みどりいろ』 の 『障害物』 
<■> を じょうずに よけながら 『た一 くさん 7』 あるい ちゃうつ ていう、 
すつ ごく 『カン タン/』 な ゲームです。 

でもで も 『カン タン 7』 だからって、 この ゲーム をバ 力に したら、 はる 
み 『ぶつち やう 7』 ん だから, ミヤ 才ー〃 

だって ェ、 この 『あるけ あるけ ゲ一 厶』 つて 『マイコンの ゲーム』 の 基 
本みたい な ものなん だ もん〃 

『ゲームの 基本み たいな もの』 なんだから、 この ゲームに 『プラス アル 
ファ』 して 作った のって、 た 一く さん あるの。 

たとえば、 この ゲーム を 『2 人 用』 にしち やうと 『バリケード ゲーム』 
になつ ちゃうん だし、 いろいろ デコレーションし ちゃったり すると 『しば 
かり ゲーム』 になつ ちゃうし、 それからね、 ちょこつ とかえ ちゃって 『才 
リエ ンテー リング』 と 力、 『ノ、 ッスリ レア』 みたい な 『おもしろ 一い,』 ゲー 
ムに ヘーン シン〃 ァ ハツ .f ねッ？ すつ ごいでし よ。 

でも、 ほんと は、 もっとも つと ひこ 一く さん/』 あるんだ つて エア 

あそび かた 

しちやう と、 まず 『ゲームの 説明』 が PR | N されます ッ f 

この 『ゲームの 説明』 をよ一 く 読んで から ほ キー を 押す と 『ゲーム』 
力 "まじまって、 『画面』 は 写真 ©み たくな つち やうの。 

それで、 なに か 『キー』 を 押す と、 『厶 ラサ キ いろ』 の く騸〉 力く 『左』 
にう ごいて つち やうから、 じょうずに 動かして 『ワク』 と 力、 『みどりいろ 
の 障害物』 と 力、 『じぶんの 動いた 跡』 に 『ごつ つん こ,』 つてぶ つかつ ち 
やわない よ うに、 た 一く さん あるい ちゃえば いいの。 

『点数』 は 『1 歩 あるく』 と 『1 点』 で、 スコア は 『ゲームオーバー』 
しちやつ てから 『計算』 しちやい ます。 

この プログラム を RUN して 『いく ら B を 押しても 動かない よお,』 

つてい う とき は msEMsa キー か cxa キーが 押されて いない かどう 力、 
確認して ね。 




WA し KER 




B 

H H 
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o プログラム 'リスト 



10 REM 
20 REM 
30 REM 
40 REM 
50 REM 
60 REM 
70 REM 
SO REM 
90 REM 
100 DEFINT 



************************ 



* 普景 
*** 



*** 

< WA し KMAN GAME > *** 
*** 

By 

HARUMI TAKAHASHI 

*** 



A- 



DIM DXC300) » DYC300) 
WIDTH 4D ? 2S =CONSO し ££ a»25iGiO 
PRINT CHR$C12) ； 



CO し OR 



，0 



GOSUB SDOO 



S=0 :X=18 :Y=12 ： VX=-1 ： VY=0 =F し AG 二 0— 



RB'1 



PRINT CRT SUB 



CO し OR 7 ： PRINT CHR$C12) > 



PRIINiTUSINC-i 



LINE 
しェ NE 
LINE 



1, 1 
1,24 
0， 2 



しェ NEd 2 

CO し OR 4 
し OCATE 0， 1 
LOCATE 3: 三い 1 
し OCATE 0，24 
LOCATE 38， 24 



110 
120 
130 
140 
150 
160 
170 
ISO 
190 
200 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
405 
"D 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 ' 

1000 REM MAIN し OOP 



-R E M 文 



[ 'スピードアップ 7』 のた め 整数 宣言 f 
初期設定 



- ゲームの 説明 をし ちゃう 



-変 数の 設定 



- 画面 ク 1 



：： SCORE 

37, 1:)， 
37,24) ， 
0，23) ， 
33,23) ， 



•■PRINT 
-PRINT 
： PRINT 
： PRINT 



02 « QUICK » 匚 2 MAX #####3" ?H 



スコアと ハイス コア を 表示 



ワク.； を 描く 



し INE (： 

CO し OR 2 
し OCATE X，Y 

I$=INKEY* 
IF I$<>" " 

I$=INKEY$ 
IF I$= 

BEEP 1 

FOR 】 
BEEP □ 



2:) — （37， 23:) ' 



！ PRINT "|" 



THEN 510 



- f ワク j を 描く 



入力 まち 



THEN 540 



TO 50 :NEXT 



- r ビッ 



WALKER 



1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
ii6Q 
•1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
12^0 
1260 
1270 
12: 三: a 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
7000 
7010 
7020 
7030 

>7040 
705Q 

-7060 
7070 
7080 
7090 
7100 
7110 
7120 

-7130 
7140 
7150 
7160 
7170 



WHI し E F し AG=0 

I*=INKEY* 

IF I$=CHR$( 
IF I$=CHR$( 
IF I$=CHR$< 
IF I$=CHR$( 



THEN VX=-1 :VY=0 
THEN VX= 1 ： VY=0^ 
THEN VY=-1 :VX=0- 
THEN VY= 1 ： VX=0^ 



- < をお した *? 

- > をお した 

- r をお した 1 ? 
- . をお した 



P=SCREEN C X+VXi Y+VY ：) 

IF POO THEN F し AG=1_T 



- な に 力、 に ぶ つかつ ちゃった？ 



X 二 X+VX 
Y_:Y"WY 

CO し OR 3 
し 0CATE X， 

DXCS')=X 



:PRINT "■' 



- 座標 を 設定 



S=S+1 

IF S MOD 2<>0 THEN 1340 
BEEP 1 =BEEF〕 0 



ひと. を P R I 

座標の 値 を 配列に 保存し ちゃう 
スコア' フ ラス. f 



X 1==1NT ( RND (： 1 ) *35) +2 
Yl==INTCRND(i:)*20:)+3 

CO し OR 4 

LOCATE XI, Yl : PRINT "H" 



WEND 

60BUB 7000 

：：：：：：：：：： GOTO 190 ： ： ： ： 

REM GAME OVER SUB 

FOR 1=0 TO S — 1 



「障害物」 の 位置 をき めちゃう〃 
- 障害物. を P R I N T , 



ゲーム ォ- 



FOR J=l TO 3 

BEEP 1 :BEEP 0 
NEXT 



LOCATE DX < 



»DYCI) ： PRINT 



CO し OR 7 

LOCATE ： 三:， 0 :PRINTUSING に 



NEXT 

CO し OR 6 

LOCATE 47 7 ： PRINT "r i ~ i r— i ■ 

し OCATE 4， 8 SPRINT "I I i | 1 



- スコア を カウン ト 



H I 



H h- 1 
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7180 
7190 
7200 
7210 
7220 
7230 
7240 
7250 
7260 
7270 
72:30 
7300 
7310 
7320 
7330 
7340 
7350 
7360 
7370 
£：□□□ 
8010 
S020 
S030 
8040 
S050 
8060 
8070 
SOSO 
S090 
8100 
S110 
8120 
8130 
SI 40 
8150 
8160 
8170 
3180 
S190 
8200 
S210 
8220 
3230 
8240 
8250 
8260 
8270 
8280 
8290 
8300 
8310 
8320 
8330 
8340 
8350 
8360 
8370 



LOCATE 4, 9 ： PRINT " L ' ~ " 上 



i — i i — i j i - 



CO し OR 7 

し OCATE 4i 11 ： PRINT PUSH ON し Y US コ KEY! 



WHI し E ェ |\JKEY$<>''s" 

C=INT(RNDCi:)*7:)+l 

LINE (: 1, 2) — （37,23) ， ，C，B 



WEND 



ユー 入力 まち 



FOR 1=0 TO 1000 
NEXT 



IF B>H THEN H=B 



RETURN 



-時間 ま' 



REM 

し OCATE 
し OCATE 
し OCATE 



DEMONSTRATION SUB 



： 三い □ 
13»0 
£:» 1 



: CO し OR 
！ CO し OR 
: CO し OR 



: PRINT 7i(''+STRING$(:19， 
： PRINT " QUICK -QUICK " 
= PRINT STRINGS (22, "一つ 



タイ 卜 

に ) + 



/表不 



し OCATE 0， 



PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 



PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 



ォス 卜 「ク" ー厶 j 力" A" 



： CO し OR 5 

' 「RUNj シテ， ナニカ 「KEY」 
'シ、 、7 リ 7'： ノチ ャィ7 —; U " 
' r 力" メン」 二 アラワ レタ >"厶 ラサ 千 イ □」 ノ <騸> J 7 y"3 ゥ'' 
'ス、 、二 ゥコ" 力 シテ 「ヮ フ」 卜 力 r S に リイ □ ノ シ 3 ゥ 力、、 イフ、 、'リ 
'卜 力 「 シ 7 ン ノ ゥ： T イタ ァ卜 j 二 r lT ザ リン IMj ツチ フ、、 ，： 厂' 
'力 ツチれ ヮナィ 3 ゥ 二， ター フ サン ァ j レイ チヤ ェ 八、、 ィ. 1' ノ ！！ '，. 

ゲー Z 



CO し OR 3 










し OCATE 2, 




： PRINT 


"RUN" 




し OCATE 10, 




： PRINT 


"「KEY_i 1 


ォス 卜'' 


し OCATE 2， 


： 三： 


： PRINT 


"力" メン" 




し OCATE 29 » 


S 


SPRINT 






し OCATE 12, 


10 


： PRINT 


、、つつ" 




し OCATE 20， 


10 


： PRINT 


卜、、 1 . 厂、' □ , 


' シ 3 ゥ 力、、. 1' フ"' リ" 


し OCATE 


12 


： PRINT 


ン" フ" ン ノ 


ゥ IT •、' タァ 卜'' 


し OCATE □ 


1 16 


： CO し OR 


6 





- 説明 を カラフルに 



PRINT "r— «<CAST 
FOR 1=1 TO 6 
PRINT "| 
NEXT 

PRINT 



-«<KEY 



「ワク』 を 表示 



CO し OR 7 

LOCATE 32， 17 ： PRINT " 门'' 

し OCATE 32， 18 ： PRINT " | に' 

し OCATE 32， 19 ： PRINT " ' " 

し OCATE 21， 20 ： PRINT ", , 

し OCATE 21，21 ： PRINT "I | 

し OCATE 21,22 ： PRINT " 1 ' 



I I I I 
i i i i 



"K E Y. のかた ち を 表示 



WALKER 



8380 
8390 
8A00 
8410 
8420 
8430 
3440 
SA50 
8460 
8470 
84S0 
S490 
S500 
S510 
S520 
3530 

8550 
S560 
8570 
S5S0 
8590 
8600 
8610 
8620 
3630 
8640 
S650 
3660 
8670 
S680 
S690 
S700 
S710 
8720 
8730 
8740 
3750 
£：760 
8770 
S7S0 
8790 
S800 
SS10 
8820 



SYMBO し （:30长16,21*8:) ? CHR$C29) ,2i 
SYMBO し （: 36*16 , 21*S :) , CHR$ (: 28 :> ， 2 ， 
SYMBO し （33*16， 18*8) iCHR$C30) ,2， 

SYMBOL (:33*16,21 并 £:) , CHR$C31) ，2， 



,2 
，二' 
，2 

，2 J 



; やじるし. を P R 



し OCATE 
CO し OR 3 ： 
CO し OR 7 : 

し OCATE 
CO し OR " ： 
CO し OR 7 ： 

し OCATE 
CO し OR 5 : 
CO し OR 7 ： 



2i IS 
PRINT 
PRINT 

2， 20 
PRINT 
PRINT 

2,22 
PRINT 
PRINT 



r 卜 



「シ 3 ゥ IT イ- 



ワ ヮ 



を P I 



T f 



CO し OR 7 

し OCATE 5,24 ： PRINT PUSH ON し Y 匚 SU KEY 



C =0 

D*=" QUI CK， QUICK 



-変数 を 設定 



WHI し E iNKEY*<>"s" 

D*=RIGHT*CD*i 12〉+ し EFT$(D$， 1) 
LOCATE 13,0 ： COLOR 7 ： PRINT D$ 

WEND 



- キー入力 まち 



FOR 1=1 TO 50 

BEEP 1 -'BEEP □ 
NEXT 

し OCATE 0,25 

FOR 1=1 TO 25 

PRINT 
NEXT 

： ： ： s s s : : : : RETURN 



- ビ '： 



画面.： をキ I 



REM FORESIGHT PLANNING SECTION 
REM ニニ 二 === ニニ 二 ====== 二： 二 =ニ= ニニ： 二 二 
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3 

1 ス"/ K "^ィ モンう 

この 『ゲーム』 は、 『FM くん』 と 『記憶力,』 を 競い あっち やうって 
いう ゲームです。 

はじめは、 ゆっくりで 『ひとつ』 だけ おぼえち やえばい いんだけ ど、 だ 
ん だん 『おぼえな くつち やい けない 数』 がふえ てって、 最後に は、 ナン 卜 
『30 コ』 も おぼえな くつち やい けない の。 ター ィ ヘン， 

『音』 の ほか は、 ほとんど 『本物,』 とおん なじ だから、 とっても 『厶 
ッ カシィ 7』 し、 とっても 『おもしろい/』 で一 すッ, すごい ff 

• あそび かた 

RUN しちやう と 『画面』 に は 写真 O みたい に 「'ゲームの 説明』 が PR 
I NT されち やうのお 7 
それで、 この 『ゲームの 説明』 をよ一 く 読ん じ やつてから 『小文字の s』 

を タイプす ると、 ゲームが 始まって 写真 0 みたく なつち やい ます。 

ゲームが 始まる と、 スグに 『ピ ッア』 ていって 『色』 力く 『1 回/』 つき 
ます。 

そしたら、 『色』 がつ いたと この キー をお してね f 

もしも 『おした キー,： があって ると、 今度 は 『2 回』 に チャレンジ ff 

二う やって、 どんどん じふえ ちゃう 7』 から、 ？' F M く ん』 が やった と 
おりに 『キー』 を 順番に 押してい けばい いの。 カン タン, 

もつ ち ろん、 『F M くん』 が 『5 回ァ』 やったら、 みなさん も 『F M く 
ん』 とおん なじよう に 『5 回 7』 押さな く つち ゃダメ よ。 

こんな ふうに して、 『30 回』 まで 『成功/』 しちやう と 『FM くん』 は 
『ギブアップ だ』 

でも、 まちがって r F M くんの やった とおり』 に 押さない と 『ゲーム 才 
—バー ァ』 になつ ちゃって、 もういち ど 『いままで やった とこまで』 を 再 
現して くれち やう んで 一す ； さっすが あ 一 ！ 

え 一と、 この 『ゲーム』 の はるみの 『ハイス コア』 は 『18 点』 でした あ/ 
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SUPER SIMON 



卜 写真 O ゲームの 説明で 一-! 



♦ 写真 © むつ かしい よお, 

• キー 操作 



ほ 



REPLAY 



B 



B 

H B 



o プログラム 'リスト 



*********** 普 *********** 长 
*** *** 

*** « THE SIMON » *** 
*长* *** 
*** By *** 

HARUMI TAKAHASHI *** 



CONSOLE 0，25，0»0 
PRINT CHR$(: 12) ； . 



10 REM 
20 REM 
3D REM 
40 REM 
50 REM 
60 REM 
70 REM *** 
SO REM 
90 REM 

100 DEFINT A-Z 
110 DIM XC30) 
1.20 WIDTH 40,25 
130 CO し OR 7，(1) 
140 ' 

150 GOSUB ： 三: 000， 
160 ' 
170 h=0 
ISO ' 

190 C=l sF し AGi=D 
200 ' 

300 REM -' -- - PRINT CRT SUB - 
310 ' 

320 CO し OR 7,0 SPRINT CHR*C12) 
33D ' 

340 CO し OR 3 

35G し OCATE 12 ■» 1 s PRINT" " r 

360 ' 

>37Q FOR 1= 2 TO 7 

330 LOCATE 12， I ： PRINT "| 
-390 NEXT 

400 ' 

410 PRINT "i 1 

42G ' 

^430 FOR 1= 9 TO 16 

440 PRINT " I 
-450 NEXT 

460 ' 

470 PRINT ,,L ~-, 1 

480 ' 

->490 FOR 1=18 TO 23 



-R E M 文 



- 初期設定 



- ゲームの 説明 を しちや うんだ あ Z 



変数の 設定 



500 し OCATE 12, 

-510 NEXT 
520 し OCATE 12,24 

530 ' 

540 CO し OR 6 
350 し OCATE 14, 10 
560 し OCATE 
570 し OCATE 
5SD し OCATE 
590 し OCATE 
600 し OCATE 

610 ' 

620 CO し OR 



： PRINT 



： PRINT 



- ワク を 描く 




- スコア を P R I N 
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SUPER SIMON 



630 
640 
650 
660 
670 
6S0 

>690 

- 700 
710 ' 
1000 
1010 

^1020 
1030 
1040 
iO^O 

> 1060 
1065 
1070 
1080 
1082 

ト 1084 

-10S6 
1088 

- 109G 
1100 

^1110 
1120 
1122 
1124 
1126 
113D 
1140 
1150 
1160 
1170 
1180 
1190 
•1200 
1210 
1220 
1230 
1240 

1260 
r>1270 
L 1280 
1290 
1300 
1305 
1310 
1320 
1330 
1340 
1360 
-1370 
「1390 
1 1400 



し OCATE 15， 11 ： PRINT "«SIMON»" 
LOCATE 15,13 ： PRINT "长* 匚 1：]キ并'' 

しェ NEC 13， 2：)- (25,23) ， i7iB 
LINEC 1, 9)-C37, 16) , "1" ,7,B 



FOR 1=1 TO 1000 
NEXT 



REM -- MAIN し OOP - 

WHILE F し AG=0 

XCC)=INTCRNDC1)*4) 

FOR 1=1 TO C 

D-XCI) 

GOSUB 5000 



FOR J=l TO 500-C*10 
NEXT 



NEXT 

FOR 1=1 TO C 

I*-INKEY$ 
IF ェ 



- 時間 まち 



-新し く 光る とこ を 決めち やう 



く に 出題.' 



THEN 1122 



1$=INKEY$ 

IF " THEN 1130 



IF I$=CHR$C30 
IF I$^CHR$(28 
IF' I$==CHR*C29 
IF' I$=CHR*C31 

GOSUB 5000 ' 



THEN D=0 
THEN D-l 
THEN D=:2 
THEN D 二 3 



- 入力 



ニ 一 入力から データに 



-光らせる 



IF DOXCI) THEN J>C =F し AG=1 



NEXT 

FOR 1 
NEXT 



TO 500 — O 10 



- 時間 まち ！ 



C=C+1 

IF C=30 THEN F し AG=2 

し OCATE 19， 13 ::PRINTUSING''##'' 5C 



- ス コ ァ 表示 」 



FOR 1=1 TO 50 

BEEP 1 :BEEP 
NEXT 

FOR 1=1 TO 500 
NEXT 



ト 



ビー.' 



-時間 まち ？ 
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L 



し 



1410 
1420 
1430 
1440 
1450 
1460 
1470 
14SD 
1490 
1500 
5000 
5010 
5020 
5030 
5040 
5050 
5060 
5070 
5080 
5090 
5100 
5120 
5130 
5140 
5150 
5160 
5170 
5200 
5210 
5220 
5230 
5240 
5250 
5260 
5270 
5280 
5290 
5300 
5310 
5320 
5330 
5340 
5350 



WEND 



IF F し AG- 
IF F し AG= 



THEN GOSUB 5200 
THEN GOSUB 5800 



- ゲームオーバー ！ 
- r 30 コ； おぼえた. 



GOSUB 5700 

:：：：：：：：：： GOTO 190 ： ： ： ： ： ^ 

REM - PAINT B し OCK SUB 



IF 




=□ 


THEN 


X: 


14 


： Y= 3 


IF 


D: 




THEN 


X 二 


26 


:Y=10 


IF 


D 


=2 


THEN 


X: 


2 


iY=10 


IF 


D=3 


THEN 


X 二 


14 


： Y=17 



BEEP 1 

LINE(:X,Y:) — (:X + 10,Y+5) ， " 釅"， D+3，BF 
BEEP a 

しェ闪£"，¥:) — " +10"+5) , u % 7 , BF 
：：：：：：：：：： RETURN ：：：：：：：： s ： 

REM PRINT ANSWt R SUB 

し OCATE 13 i 9 : COLOR 2 s PRINT "++ ANSWER! ++" 



光らせち やう 



けしち > 



BEEP 1 
FOR I 
NEXT 

BEEP □ 



:i to ioaa 



FOR 1=1 TO C-l 

D = X(: ェ:） 

GOSUB 5000 

FOR J=l TO 50 
NEXT 



- 解答 J 



5360 ' 
5370 NEXT 
53S0 ' 

5390 GOSUB 5500 
5400 ' 

5410 ：：：：：：：：：： 
5420 ' 
5500 REM 
5510 ' 

5520 CO し OR 4 
5530 し OCATE 4i 18 ： PRINT " 
5540 し OCATE 4,19 ： PRINT " 
5550 し OCATE 4,20 ： PRINT " 
5560 ' 



RETURN ：：：：：： 

GAME OVER SUB 



I つ H I I 

I I 丄 J-JL L 



H 



I I I I H HH 
i i i i j i j_ i_j 



SUPER SIMON 



5570 
5580 
5590 
5600 
5610 
5700 
5710 
い 5720 
l 5730 
5740 
5750 
5760 
5770 
57S0 
5790 
5795 
5300 
58 10 
5820 
5830 
5840 

5360 
5870 
5880 
589G 
5900 
5910 
5920 
5930 
5940 
5950 
5960 
SOOO 
SOI a 
8020 
8030 
8040 
SQ50 
8060 
3070 
SOSO 
S090 

siaa 

8110 
8120 
S130 
8140 
8150 
8160 
817Q 
SI SO 
8190 
S200 
8210 
S220 
S230 



CO し OR 
し OCATE 



REM 



,22 ： PRINT PUSH ONLY 匚 S3 KEY ! 

： RETURN ：：：：：：：：：： 

WAIT PUSH INKEY SUB 



WHILE INKEY^O-s" 

I=RNDC1) 
WEND 



- キー入力 まち 



FOR 1 
NEXT 



TO 



- 時間 まち ァ 



REM 



： RETURN ： ： ： ： s ： ： ： ： s 

PRINT SUCCEED SUB 



CO し OR 2 
し OCATE 7? 4 



: PRINT M ***** YOU SUCCEED ！ 



CO し OR 
LOCATE 
LOCATE 
LOCATE 
し OCATE 

locate: 



4, 7 

9 

4, 13 
4? 15 



！ PRINT 
： PRINT 
： PRINT 
： PRINT 
: PRINT 



' ァすタ 八， 

力、、 ァ -" 1 
' 「Fn — S フン 
'チヤ イマ シタ 0 



FM-8 フン」 ノ タ "シ^ モノ ， 
ンフ" や ？ テ" や マ シタァ ！ ！ I： 



ん 7 T -7 ノ 



' ノウ 



7T' 



'セ 一、: 



CO し OR 7 
l_OCATE 6i IS 



SPRINT 
RETURN ： 



'ihMMM- PUSH ON し Y LSD KEY ！ 长 并'' 



REM 



DEMONSTRATION SUB 



し OCATE SiO 
LOCATE 14?0 
し OCATE Si 1 

し OCATE 0^3 
PRINT "-PRINT 



： COLOR 1 SPRINT , '/ J i"+STRING$(:19， " 瞩' 
SCO し OR 7 SPRINT " THE -SIMON " 
: CO し OR 1 ： PRINT STRING* ( 22, "~") 



>+"『/' 



PRINT 
PRINT 
PRINT 
PRINT 
PRINT 

CO し OR 
し OCATE 
し OCATE 
し OCATE 
し OCATE 
し OCATE 



： PRINT 
： PRINT 
： PRINT 
： PRINT 
： PRINT 

3 

15, 4 
27， 4 
16， 10 
7， 12 
26， " 



= CO し OR 5 

" コノ 「ク 、、一 厶」 八， r FM — :3 フ：ノ」 卜 r 中 オフ リ 3フ！」 ， + 
' 'ソ' く 7 ゥ '：ノ 亍イゥ ケ" ー厶 テ" ース o 

■' 八 シ 、、メ )\, ュ': ノ ク リテ" r t 卜' リ」 シカ ォホ" ェ-; "フ ツテ 小 -、' ノ。 
" タ、、 ケ 卜"， タ ンタ 《ン r ォ 本" i チャウ！ 」 ノ 力、、 フエ テ' ソ亍， サイ 

" コ、、 二^ 「30 コ」 モ ォす にェ丁 フ'ソ チヤ -)1t-\yf" 7.o 

" u ゥ f ッテ： • r 30 コ」 ォホ、 、ェ? ^7 ェ /)、、 ， r YOU SUCCEED ！」 



： PRINT 
： PRINT 
:PRINT 
： PRINT 
： PRINT 



"FM-S ?：/" 
"中 オフ リ 3 ク！ " 
" ォ itT ェ チャウ！ " 
"30D" 

"YOU SUCCEED ！ 



し OCATE 0， 16 SCO し OR 6 

PRINT " r-«<CAST 

FOR 1=1 TO 6 



-«<KEY 



ゲームの 説明 
—— ワク を 描く 
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r 



8240 
： 三: 250 
8260 
S270 
32S0 
8290 
S3D0 
8310 
S32Q 
S330 
S340 
8350 
S360 
8370 
8380 
8390 
8400 
S410 
8420 
3430 
844Q 
8450 
S460 
3470 
S4SQ 
8490 
3500 
85 10 
8520 
8530 
8540 
3550 
8560 
S570 
85S0 
8590 
8600 
3610 
8620 
8630 
S640 
S650 
S660 
8670 
8680 



PRINT "I 
NEXT 
PRINT " L 

C0 し OR 



I I 



し OCATE 


32， 17 


： PRINT 


し ocate: 


32, IS 


： PRINT 


し OCATE 


32， 19 


： PRINT 


し OCATE 


21,20 


： PRINT 


し OCATE 


21，21 


： PRINT 


し OCATE 


21i22 


SPRINT 


SYMBOL 


C30*16 


， 21*£::i 


SYMBO し 


(36*16 


i21*S) 


SYMBO し 


(33*16 


, 13*8) 


SYMBO し 


(33*16 





I i 

I I 



»CHR$(29 
>CHR$C2S 
,CHR$(30 
jCHR$ (31 



i 2 , 1 ,2 
1,2 



- 使う キー を 表示 



PUSH ONLY 匚 KEY 



CO し OR 7 
LOCATE 5,24 PRINT 

D$=" THE«S ェ圆 M " 

WHI し E Ii\JKEY$<>"s" 



LOCATE 14,0 = CO し OR 7 ： PRINT D* 



ェ=睡（:1:) 
WEND 

FOR 1=1 TO 70 

BEEP 1 :BEEP □ 
NEXT 

し OCATE 0，25 

FOR 1=1 TO 25 

PRINT 
NEXT 



-入 力まち 



'画面.： をキ レイに しち， 



RETURN 



REM 
REM 
REM 



FORESIGHT P し ANNING SECTION 




10 月 19 曰 （火） あめ 

きょうは 『あめ』 でした。 

はるみ は、 『あめの 曰』 キ ライです。 

だって、 せっか <、 あさ 『はやおき』 して 『ブロー』 したのに、 
はるみの 『かみのけ』 つて ほそい から、 すぐ 『しな ッダ』 つてな つ 
ちゃ ラん だちん Z 

やつば り、 カラカラ 『はれの 曰』 の ほう ガス キ です。 

L がっこう』 からかえつ てきて、 『テレビ』 をみ て、 『お ふろ』 
に はいって 『サウンド' ス卜 リー 卜』 を 聞いたら 『あつ'』 という 
まに 『8 時』 になつ ちゃい ました。 たいへん Z 

そうそう、 きょうの 『サウンド • ス卜 リー 卜』 に は、 はるみち よ 
つび りお どろい ちゃい ました。 

なんと、 あの 『演歌の 前 川 清さん』 が、 『ポップス』 をうた つて 
るんで す もの、 はるみで なぐても おどろい ちゃう ア 

それが また、 とっても 『じょうす/』 なの。 

え 一と、 きょうは、 いままで 『クイック 'バリケード』 と 『MA 
RS』 の 2 本の 『ゲー^』 を 作つ ちゃい ました。 
でも、 あと 『ひとつ』 作ん なぐつ ちゃい けない の。 
ぅーァ ちう 『3 時』 すぎち やって るって ぃラ のにい' 

そういえば、 最近、 はるみの 『がっこう』 で 『カゼ』 が はやって 
るんで す。 こわ 一い, 
はるみの 『クラス』 でも、 『6 人』 もお やすみし てます。 
はるみ も 『カゼ』 ひかない ようにし な < つ ちゃ あ〃 



4 u > 一 

4 タイ， 習 (ゲー 

この 『ゲーム』 は、 『あそびながら/』 タイプ 練習し ちゃうつ ていう、 
とっても 『よくばり』 な ゲームで 一す〃 

『タイプが じょうずに なりたい な あ 一,』 つてい う ひと、 ぜひ ぜひ、 ] 
度 してみ てね。 おねがい, 

秦 あそび かた 

ん 一と、 RUN しちやう と 『画面』 に は 『ゲームの 説明』 が PR | NT 
されち やい ます。 

二の 『ゲームの 説明』 をよ一 く 読んで から r 小文字の s 』 を 押す と、 ゲ 

ー厶が 始まって、 『ゲームの 厶 ッカシ さ』 をたず ねて きます 

『ゲームの 厶 ッカシ さ』 は 『1 から 5 』 までで、 『数が ちっちゃ いほう』 

力く 『ムッ カシィ 7』 ようになつ てま 一す。 

『ム ッカシ さの 値』 を タイプした あと 羅邏 rlJ, を 押す と 『ゲー 

厶』 が 始まつ ちゃい ま 一す。 やった あ. P 

ゲームが 始まつ ちゃうと、 『ピ ッ,』 つてい う 音と ともに 『アルファべ 
ッ 卜』 が あらわれ るから、 すぐに 『あらわれた アルファべ ッ 卜』 の キー を 
タイプし てく ださいね。 

もしも 『'タイプした キー』 があって たら、 「'ビ ッハ つてい う 音と とも 
に スコアに 『1 点』 プラスされ ちゃうん です。 

でも、 も し 『まちがえ ちゃう ア』 と、 『残りの に | ME 』 力、' 『マイナス 
5』 されち やい ます。 た 一い へん. ひ 

こうやって、 ['残りの 丁 I ME』 力く 『〇』 になつ ちゃうと 『ゲーム 才ー 
バー 7』 で 一す ッ r 

この 『ゲーム』 、 『リス 卜』 が 見やす いから 『うちこみ やすい .r』 し、 
あそんで みると 『おもしろい,』 し、 すこし は 『タイプが じょうず になつ 
ちゃう.'』 つてい う 『お徳 用,』 ゲームです。 

みなさん も、 1 度で いいから PLAY してみ てね, 



TYPING I 
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o プログラム 'リスト 



10 REM 

20 REM 普 

30 REM <TYPING し ESS0N3> *** 

40 REM 长 
50 REM By *** 

60 REM *** HARUMI TAKAHASHI 
70 REM 

80 REM ************************ 
90 REM 

100 DEFINT A-Z 
11D WIDTH 40,25 



-R E M 文 



CO し OR 7,0 
GOSUB 8000 



: CONSO し E □ , 25 , □ , □ 
： PRINT CHR$C12) ； . 



- 初期設定 



S=-0 s し^ 
REM 



PRINT CRT SUB 



CO し OR 7,0 ： PRINT CHR$C12) 



PRINT "Li SCORE 



DU << し ESSON>> じ：： TIME 1001' 



120 
13D 

140 GOSUB SOOO - 
150 ' 
16G H=0 
1-/0 ' 
ISO 
190 
300 
310 
320 
330 
340 
350 

360 しェ NEC Dil4)-C38il4) 1 , VS7 
370 LINEC 0, 15)-(:3:三:， 15) , " 黼 " ，5 
380 LINEC 16)~C3S, 16：) , ,3 
3S5 LINEC 1)-(.3S, 1 ) , ,4 

390 ' 

AOO CO し OR 6 

^10 し OCATE 0,23 ： INPUT "INPUT し EVE し 匸1 一 5：], 
420 IF し <1 OR L>5 THEN 410 
430 ' 

1000 REM MAIN し OOP 

1010 ' 

1020 FOR T=100 TO □ STEP 一 1 
1030 ' 

C*=CHR$ (: 97+ ェ NT (: RNDCl :) *26) ) < 一 現れる アル フ 7 

R =INTCRNDC1)*3S:,^ —現われる 位置 を 決める f 



画面 を 作つ ちゃう, 



- レベル を 入力 だ 



1040 
1050 
1060 
1070 
1 ひ 三 :0 
1090 
1100 
1110 
し 1120 
1130 
1140 
1150 
1160 
1170 
1180 



卜 を 決める 



CO し OR 7 
LOCATE R, 13 



： PRINT C$ 



アル フ マ ' 



を P R I N 



BEEP 1 
FOR J 
NEXT 

BEEP □ 

FOR 1=1 



TO 50 



TO し *100 



I*=INKEY$ 
IF I$<>"' 



THEN GOSUB 5000 



： 一入 力 
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TYPING 



NEXT 



t PRINT 



:PRINTUSING "####" 5T 



: GOTO ISO ：：：：：： 

KEY GCAN SUB —— 

THEN GOSUB 5100 
THEN GOSUB 5300 



1190 
1200 
1210 ' 

1220 し OCATE Ri 13 
1230 ' 

1240 し OCATE 34,0 
1250 ' 
1260 NEXT 
1270 ' 

1280 GOSUB 7000 
1290 ' 

1300 ：：：：：：：：： 
1310 ' 
5000 REM 
5010 ' 

5020 IF C$ 
5030 IF 1%<>C% 

5050 ：：：：：：：：： 

5060 ' 

51.00 REM 

5110 ' 

5120 FOR 1=1 TO 50 
5130 BEEP 1 :BEEP 

5140 NEXT 

5150 ' 

5160 S=S+1 s I=1000 

5170 ' 

5180 LOCATE 9,0 :PR1NTUSING "####" ； B 

5190 ' 

5200 s i ： ： s ： ： ： s ： RETURN ：：：：：：： s : s 

5210 ' 

5300 REM -- 一 NOT SOOTING SUB - 

5310 ' 

5320 PRINT CHR$(7) ； 

5330 ' 

5340 T=T-5 =1=1000 

5350 ' 

5360 ：：：：：：：：：： RETURN ：：：：：：：：：： 

5370 ' 



アル フ： 



をけ しち ^ 



- 残 り 



を表不 ？ 



ゲームオーバー . 



あってる？ 

ま ちがって る？ 



： RETURN ：：：：：：：：： 

YES SHOOTING SUB 



a 



ビッ 國 



、コ アフラ： 



スコア 表示 



7000 REM 
7010 ' 

7020 CO し OR 3 
7030 し OCATE 4, 17 
7040 し OCATE 4i IS 
7050 し OCATE 4, 19 
7060 ' 

7070 CO し OR 7 
70S0 し OCATE Ai21 
7090 ' 

7100 IF S>H THEN 
7110 ' 

7120 CO し OR 6 

7130 し OCATE 10， 5 
7140 ' 

7150 WHI し E INKEY*<> 
7160 ' 



GAME OVER SUB 



PRINT 
PRINT 
PRINT 



： PRINT 
H=S 



I I 上 .1 L 



H 



I ~ I T Tl ~ I 1 I 

I I I I H I-t^ 

I I I I J 1 上 u 



PUSH ON し Y 匚 SH KEY ! 

ハイス コア 登録 



： PRINT エー SCORE IS" 5H 



、ィ ス コア 表不 
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7170 
7180 
7190 
7200 
7210 
- 7220 
7230 
7250 
7260 
： 三: 000 
： 三: 020 
8030 
8040 
8050 
806D 
8070 
SO: 三 :0 
： 三: 090 
： 三: 100 
81 10 
： 三: 120 
8140 
81 50 
S160 
8170 
81 80 
8200 
8210 
8220 
S230 
8240 
8250 
8260 
8270 
8280 
S290 
3300 
S3 10 
S320 
8330 
S340 
8350 
8370 
8390 
S400 
8412 
8420 
S430 
84AG 
8460 
S470 
S490 
8500 
S510 
S520 
S54Q 
8560 
： 三: 570 
S5S0 



C=INT(RNDC1)*7:) + 1 
し INE<: 15：)-(：38, 15) 



WEND 



FOR J 
NEXT 



=1 TO 1000 



RETURN 



- 時間 まち . 



REM - DEMONSTRATION SUB —— 

LOCATE SiO SCO し OR 1 ： PRINT "/J-'+STRING* (21 ? "■" ) - 

LOCATE 13 ，0 =C0 し OR 7 ！: PRINT " TYPING ■ し ESSON " 

し OCATE ： 三い 1 =C0 し OR 1 ： PRINT STRING$(24, "~" ：) 



, T ノ,， 



し OCATE 0,3 
PRI!\'t ： PRINT 
PRI:nJ ： PRINT 
PRINT ： PRINT 
PRINT ： PRINT 
PRINT ： PRINT 
PRINT --PRINT 

CO し OR 3 
し OCATE 5, 4 
し OCATE 15， 4 
し OCATE 7， 10 
し OCATE 2i 14 

CO し OR 2 
し OCATE 23, 14 



: CO し OR 5 

" ：] ノ r T " ー厶」 「ァソ I 二" す 力、、 ラ ！」 タイフ 0 ノ レンシ ユウ 

'にラ シ チャウ'：' T ィゥ 卜 一 ッテモ 「ョフ 八、、 リ」 ナ ゥ、 、ー厶 テ 、、ス o 

" 「ケ "一 厶」 力、、 A シ、、 7 〜チャウ 卜， r r o ': ノ！ j 'ソ ティ ゥ 3 卜 卜 

"ィ ツシ 3 二 r アルファ ハ r ッ卜 j 力、、 アラワ レルカラ ス つ、、： オン： r ン、、 
"「千 一」 ラ タイフ e シテ フタ" サイ 《> 

" r TIME OVER! ！」 二 す 'ソ タラ r GAME OVER」 亍、、 ス。 



： PRINT 
： PRINT 
： PRINT 
： PRINT 



力 、、一. 厶'， 

'ァソ 亡" ナカ" ラ ！' 
1 アルファ 、"ッ 卜'' 
'TIME OVER! 



： PRINT "GAME OVER" 



し OCATE 0， 16 =C0 し OR 6 
PRINT " r—«<CAST & KEY 
FOR 1=1 TO 6 
PRINT "| 
NEXT 

PRINT 



CO し OR 7 

LOCATE S , 20 ： PRINT " ( a - z ：) ノ 「アルファ ハ r' ソ 卜」， 

し OCATE 5i24 ： PRINT PUSH ONLY 匸 S3 KEY 

D$=" TYPING" し ESSON " 
WHI し E INKEY$O n s" 

D$=RIGHT$(D$, 1^:)+ し EFT$(:D$, 1:) 

し OCATE 13»0 ： PRINT D$ 
I=RNDC1) 
WEND 



ゲームの 説明 



? ク を 描く 



ニー 入力 まち 7 



FOR 1=1 TO 50 

BEEP 1 :BEEP D 
NEXT 

LOCATE 0,24 

FOR 1=1 TO 25 

PRINT 
NEXT 

： ： 2 ： s ： s ： ： : RETURN ：：：：:::::: 

REM" ======================：====—=： 

REM FORESIGHT PLANNING SECTION 
REM ==—===================：===：=== 



'ビー.' 



画面..： をキ レイに しちや うんだ あ- 




10 月 20 曰 （水） はれ 

きのう は、 あんなに 『あめ ダ』 だった のに、 きょうは、 ちゃ あん 
と 『はれ』 ちゃい ました。 ふしぎ 一/ 
やつば り、 『はれの 曰』 は ルン ルン 気分/ 
でも、 さむぐな つてき たけ ど …… 。 

そラ いえば、 はるみ は 『中学生の ころ』 まで 『南極が あつい,』 
つて 『本気,』 で 思って たんです。 はす かし 一い ゾ 

『北極』 は 『北海道の むこう/』 だから 『さむい ダ』 つて わかる 
ん だけど、 『南極』 つて 『おきなわの むこう,』 でしよ？ 

だから、 はるみ は 『南極 は あつい ダ』 つて 思つ ちゃった わけな 
の。 

いまから 考えて みると 『たんじゅん』 だけど、 そのころ の はるみ 
にと つて は 『あたりまえ ダ』 のこと だった から、 お ともだちに 『南 
極って、 すつ ご < さむい とこな のよ ァ』 つて おしえて もらった とき 
は、 かなり 『ショック ダ』 でした あ, 

それから、 きのう 買って きた 『土屋 さん』 の 『ライス 'ミ ユー ジ 
ック』 を 聞 さました。 
『クセ になつ ちゃい そう,』 、 こういう 曲って …… 。 
^ すみれ セブ テン バー' ラフ』 が、 うれて <れ ると いいな ぁア 

ぁッア そういえば 『D に スランプ』 と 『うる 星 やつら』 を 
みのがし ちゃい ました。 

『うる 星 やつら』 が 『プロやきゅう』 でつ ふ' れて <れ てたら、 は 
るみ うれしい な あ。 
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5 ビル ティング • クラッシュ/ 

この 『ゲーム』 は、 『500m/』 も ある 『ビルディング』 の 屋上から、 
『1 階』 まで 降りち やうって いう ゲームな の。 

『な 一んだ,』 つて 思つ ちゃう かもしれ ない けど、 この 『ゲーム』 すつ 
ご 一く 『スリル』 あるんで一 す ゾ 

この ゲームの 『おもしろさ 7』 は 口 じゃあ 『うまく 説明』 できない 7』 
から、 とにかく 1 度 PLAY してみ てね。 

あそび かた 

IN しちやう と、 『画面』 に は 写真 O みたく 『ゲームの 説明/』 が P 

R I NT されち やい ま 一す。 

この 『ゲームの 説明』 をよ 一く 読ん じ やつてから、 『小文字の s 』 を 夕 

イブす ると ゲームが 始まって、 『画面』 に は 写真 @み たいに 『ビル』 が 下 
から 『だんだん 7』 あらわれ てきます。 
ゲーム 内容 は、 つぎつぎに 『したから』 せりあが つてく る 『ビル』 のな 

か を 『ひと』 がかけ おりち やうって いう もので、 『500m,』 かけおり ちゃ 
えば 『大成功,』 

でも、 『ひと』 がかけ おりち やう JfTj も、 『ビル』 がせり あがって きち 
やう ほうが はやくって、 『ひと』 力く 『画面』 の 『いちばん うえ〃』 にき 
ちゃったり、 反対に 『いちばん した〃』 にいつ ちゃうと 『ゲーム オーバ 
一,』 になつ ちゃうの。 タイ ヘン f 

それから、 『ひと』 は 『した』 に 降りる ことで きる けど、 『うえ』 にあ 
がる ことで きないから、 『いき どま り』 のと こに はいつち やわない よ う に 
してね。 

ぁッ， それから それから 『ゲームが はじまった ばっかり .P』 で、 スコ 
ァが 『60 点』 以下のと き は 『した』 に おりられない ようになつ てま 一す。 

えと、 ちょっと 関係ない けど、 はるみの 『ハイス コア』 は、 もちろん、 
『500 点』 でした あ。 
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:CONSO し E 0,25, 0,0 
： PRINT CHR$(12) ； 一 



□ 



□ :X=19 ： Y=23 _ 



PRINT CRT SUB 



10 REM ************************ ' 
20 REM *** *** 
30 REM <BUILDING CRASH> *** 

40 REM *** *** 
50 REM By 
60 REM HARUMI TAKAHASHI *** 

70 REM *** 
80 REM ************************ 
90 REM 

100 DEFINT A - Z 
110 WIDTH 40i25 
120 CO し OR 7,0 
130 

140 GOSUB 8000 
150 
16D 
170 
130 
190 

200 REM 
210 

220 COLOR 7， CD ： PRINT CHR$C12) ； 
230 

1000 REM 
1010 , 
1020 
1030 
1040 
1050 
1Q60 
1070 
1030 
1090 
1100 
1110 
1112 
1114 
1116 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 



-R E M 文 



- 初期設定 



- ゲームの 説明 を P R I N 



- 変数 を 設定 



画面.. 1 をキ I 



FOR T=D TO 500 



I*=INKEY$ ： VX=0 ： VY=0 



IF I$=CHR$(29 
IF I$=CHR$C2S 
IF I$=CHR$C31 



THEN VX=-1 < 
THEN VX= 1 ― 
THEN GOSUB 5(300 



P=SCREEN(X+VXiY+VY:) 

IF P^ASCC "■") THEN GOSUB 5600 



-Q をお した？ 
をお した？ 
-(S をお した？ 

—— 動け るのお 7 



CO し OR 7 
LOCATE XiY 



： PRINT 



- ひと をけ す 



X=X+VX ： Y=Y+VY 



し OCATE X，Y ： PRINT 



- ひと を 表示 7 



IF 
IF 



MOD S =0 THEN 
MOD S =A THEN 



GOSUB 5200 
GOSUB 5400 



- ビル を 描い ちゃう 



- スコア を 表示 



CO し OR 7 
し OCATE 34,0 ： PRINT 



IF Y=0 OR Y=24 THEN GOSUB 7000 ： GOSUB 7300 ： GOTO ISO 
NEXT 

GOSUB 7500 ： GOSUB 7300 
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CRASH 



1270 
12S0 
1290 
5000 
5010 
5020 
5030 
5040 
5050 
5060 
5070 
5080 
5090 
5100 
5110 
5120 
5130 
5140 
52G0 
5210 
5220 
5230 
52A0 
5250 
5260 
5270 
52SQ 
5290 
5300 
5310 
5320 
5330 
5340 
5400 
5410 
5420 
5A30 

5450 
5460 
5470 
5480 
5490 
5500 
5510 
5520 
5530 

5600 
5610 
5620 
5630 
5640 
5650 
5660 
5670 
5680 



：：：：：：：：：： GOTO ISO ：：：：：：： 

REM DOWNNING MAN SUB 

IF T<60 THEN RETURN 



P=SCREEN(X,Y+1) 

IF P>32 THEN RETURN 



- 降り られ る 1 ? 



VY= 1 

FOR 1=1 TO 30 

BEEP 1 :BEEP 0 
NEXT 



：：：：：：：： RETURN ：：：：：：：：：： 

REM -- 

LINEC 5 ,24)- (31,24) ? M B%5 



FOR 1=1 TO 4 

R=INT(RND C 1：)*2：5)+6 
LOCATE R , 24 ： PRINT 

NEXT 



力べ を P I 



-7C を あける 



Y=Y-1 

し OCATE 0,24 ： PRINT 

： s s :::::: : RETURN ：：：：：：：：：： 

REM - PRINT BUILDING SUB 



CO し OR 1 
LOCATE 5,24 ： PRINT : 
LOCATE 31,24 ： PRINT "騸": 



- 力べ を P R 



R=INTCRND(i:)*25:)+6 
LOCATE R，24 s CO し OR 

Y=Y-1 

し OCATE 0 ? 24 ： PRINT 
：：：：：：：：：： RETURN にに： 

REM STOP MAN SUB 

BEEP 1 
VX=0 :VY=0 
BEEP 0 



： PRINT 



-動く の を やめ '： 



RETURN 
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5690 
7000 
7010 
7020 
7030 
7040 
7050 

-7060 
7070 
7080 
7090 
710D 
7110 
7120 
7130 
7140 
7150 
7160 
7170 
7180 
7190 
7200 
7210 
7220 
7300 
7310 

-7320 
7330 

-7340 
7350 
7360 
7370 
73S0 
7390 

-7400 
7410 
7420 
7430 
7440 
7450 
7460 
7470 
7480 
7500 
7510 
7520 
7530 
7540 
7550 
7560 
7570 
7580 
7590 
7600 
761D 
7620 
7630 



REM - GAME OVER SUB 

FOR 1=1 TO 20 



FOR J=l 

BEEP 
NEXT 



TO 10 
1 :BEEP 0 



CO し OR RND C 1)*7+1 



し OCATE X,Y 

NEXT 

CO し OR 4 
LOCATE 7 
し OCATE 4, S 
し OCATE "， 9 



: PRINT CHR$(RND(1) ^200+32：) ？ 



■ 爆発 f 



.'PRINT 
: PRINT 
： PRINT 



I i l-H I I I 
i — i 丄 i_i - 



H 



I I I I H i-r- 1 I 

I I I I J 1 丄. L_i J 



CO し OR 7 
LOCATE 4,11 



REM 



SPRINT 
RETURN ：：：：：： 

WAIT INKEY SUB 



***** PUSH ONLY 匚 SH KEY ！ 

ゲーム ォ- 



WHI し E INKEY$0"s 

R=RNDC1.) 
WEND 

IF T>H THEN H=T 



キー入力 まち ？ 



、イス コア 登録. r 



FOR 1=1 TO 50 

BEEP 1 :BEEP 0 
NEXT 

し OCATE 0.24 

FOR 1=1 TO 25 

PRINT 
NEXT 



"画面. をキ レイに しち， 



：：：：：：：：：： RETURN ： ： ： 

REM - YOU SUCCEED SUB 



し OCATE 6i4 
し OCATE 12»4 

CO し OR 6 
し OCATE 4i 7 
し OCATE 9 

CO し OR 7 
し OCATE 4， 15 



： CO し OR 
=C0 し OR 



SPRINT 
： PRINT 



2 ： PRINT 
7 SPRINT 



"+STRING$(25i "■" ：) + " I " 
YOU SUCCEED ！ " 



PRINT 
RETURN : 



' ァ: T タ A, U ノ 「500 カイ」 タ" テ ノ 「BUI し" 
'DING」 カラ 「タ" シ' リ」 テ "午 7 シタ ！ ！ " 



PUSH ON し Y 匚 SH KEY ！ 



CRASH 



8000 
3010 
S020 
3030 
S040 
8050 
3060 
8070 
3080 
8090 
S1D0 
8110 
8120 
8130 
SI 40 
8150 
3160 
SI 70 
SI SO 
8190 
S200 
8210 
8220 
3230 
8270 
S28Q 
8290 
S300 
S3 10 
S320 
8330 
8340 
3350 
S360 
S370 
S380 
8390 
： 三: 395 
S400 
8410 
8420 
8430 
SAAD 
8450 
S460 
8470 
8480 
SA90 
8500 
8510 
8520 
S530 
8532 
8534 
8536 
S540 
8550 



REM - DEMONSTRATION SUB 



し OCATE 6i0 
し OCATE 11 ，0 
し OCATE 6, 1 



: CO し OR 1 
: CO し OR 7 
: CO し OR 1 



： PRINT M /J"+STRING*C22, " 
： PRINT " BUI し DING，CRASH 
： PRINT STRING* C 25, "~"：) 



し OCATE 0,3 '.CO し OR 



PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 



： PRINT 
: PRINT 
: PRINT 
： PRINT 
： PRINT 
: PRINT 



コノ 「GAME」 八， 「BUI し DINGj ノ r ォ フシ、、 3 ゥ！」 カラ 
「1 カイ j 7 テ" オリ チャウ' ソ t ィゥ r 々 '、一 厶」 テ "一：: S 

「丁 アン タ" ！」 'ソテ ォモ ッ チャウ 力 モシ レす ィケ 卜"， コノ r GAME j 
や: ノコ "フ 「スリル」 力" ァ j し ノ 0 

II ノ 「ケ" ー厶」 ノ ォ モシ []サ PLAY vtS すフ 'ツチ ャ 「「フカ 



" ラすィ ！ 



カラ 卜 二 カフ ァ ソン テ" 5 テネ 《 



し OCATE: 




4 


： CO し OR 




： PRINT 


"GAME" 


し OCATE 


15， 




： CO し OR 


6 


SPRINT 


"BUI し DING" 


LOCATE 


28 ， 


4 


： CO し OR 


3 


： PRINT 


" 才フ シ" 3 ゥ ' " 


し OCATE 


1, 


6 


： CO し OR 




= PRINT 


" 1 カイ'' 


し OCATE 


2, 




=C0 し OR 


6 


： PRINT 


" ナァ v タ" ！ " 


し OCATE 


7, 


10 


SCO し OR 




： PRINT 


"スリル'' 



ゲームの 説明， 



し OCATE 16 SCO し OR 6 

PRINT " r— «<CAST 

FOR 1=1 TO 6 
PRINT " I 
NEXT 

PRINT " 1 



「<<<KEY 



i " 



ワク を 描く Z 



CO し OR 7 
し OCATE 32， 17 



LOCATE 
し OCATE 
し OCATE 
し OCATE 
し OCATE 

SYMBO し 
SYMBOL 
SYMBO し 



32， 18 
32， 19 
21,20 
21,21 
21,22 



二 PRINT 
： PRINT 
SPRINT 
： PRINT 
： PRINT 
： PRINT 



(30*16 , 21*8 
C36*16i21*S 
(33*16,21*8 



»CHR$C29 
iCHR$C29 
»CHR$C31 



i ~ i i ~ i i ~~ i 
I M I I I 
i —— i i — i i i 



， 2 ，い 2 
， 2 ， 1 ， 2 



キ. 一 を P R 



し OCATE 2, 18 
CO し OR 7 ： PRINT 
CO し OR 7 ： PRINT 



し OCATE 
CO し OR 3 : 
CO し OR 7 : 

し OCATE 
CO し OR 5 : 
CO し OR 7 : 

CO し OR 1 
し OCATE 5， 



2,20 

PRINT 

PRINT 

2,22 

PRINT 

PRINT 



ひ 



だ、、、 



'画 



キャスト を 説明 



24 ： PRINT PUSH ON し Y CSU KEY 

D$=" BUI し DING-CRASH " 
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8560 
8570 
S5S0 
8590 
8592 
8594 
8600 
S610 
8620 
8630 
8640 
S650 
8660 
8670 
8680 
8690 
8700 
3710 
8720 
8730 
8740 
8750 
S760 



WHILE INKEY$<>"s" 

し OCATE 11 SCO し OR 7 ： PRINT D$ 
R=RNDC1) 
WEND 



FOR 1=1 

BEEP 
NEXT 



TO 50 
1 :BEEP □ 



し OCATE 0i25 

FOR 1=1 TO 25 

PRINT 
NEXT 

::：：：：：：：： RETURN 



REM = = ニニ： ニニ ニニ： ニニ ニニ ニニ ニニ ニニ： 二 二 ニニ 

REM FORESIGHT PLANNING SECTION 
REM =====================-====== 



- 画面 をキ レイに す るんだ あ, 




10 月 21 曰 （木） はれ 

きょう、 『ザ' べス卜 テン』 をみ てたら、 な 一ん と 『すみれ セブ 
テンパー 'ラブ』 が、 ついに 『1 位』 になつ ちゃい ました。 
す、 すご 一い, 

だって、 あの 『春 眹き小 紅』 でさえ 『1 位』 になれ なかつ たんだ 
ちん。 

やっぱり、 『一風 堂』 つて カツ コ イイ もんね。 
と < に 『土屋 さん』 は …… でも、 ちょつ びり 『研な おこ』 ににて 
るけ ど …- 。 ゴ メンナ サイ, 
う 一ん、 『おもちつ き』 を やらされて たのが、 ちょっと …… 。 

でも、 まさか 『1 位』 になつ ちゃう なんて、 はるみに はま だ 信じ 
られ ない の。 

とに か <、 あした 『がっこう ァ』 へいったら、 みんなに はなさな 
ぐつ ちゃ.' 

それに、 来年 は [ ユキ ヒロさん』 が [ CM ソング』 やる つて 『パ 
ル』 がいって たから、 もしかすると、 もしかすると 『ユキ ヒロさん』 
が 『ザ. べス卜 テン』 にで て、 『あ ッ、 どうも、 ボク 「高 橋 ユキ ヒ 
□j です』 な 一ん ていった りして、 キヤ ッ, 
(想像した だけで も 『かおが あかく. に] なつち やい ます） 

来年 は 『ユキ ヒロさん』 の 年で 一す f やった あだ 

そラ いえば、 なんと、 あした は 『中間 テス 卜』。 
ついこの まえ 『なつやすみ』 だった のにい 一。 はやい〃 
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• MARS 

この 『ゲーム』 は、 火星の 地上に ある 『移動 基地』 に 『着陸 船』 を じょ 

うずに 『ドッキング/』 させち やう ゲームな の。 
『ゲーム 内容』 も 『キー 操作』 も、 カン タンそう でしよ？ 
でも、 この ゲ一 厶、 すつ ご一 く 『厶 ッカシ ィア』 の。 ナント, 
だって、 『ス ピー ド』 は 速い し、 ほんのす こ し 『ズレ ちゃって る ァ』 だけで 

『ボカ一 ン ァ』 つて、 ゲームオーバーし ちゃうんだ も 一ん。 そんな 『厶ッ 力 

シ才 モシ 口い』 この ゲーム、 ぜひ 1 度 PLAY してみ てね。 おねがい, 

• あそび かた 

え 一と、 RUN しちやう と 『画面』 に は 写真 O みたく 『ゲームの 説明』 
が PR I N， されち やい ます。 

それで、 この 『ゲームの 説明』 をよ 一く 読んで から 『小文字の s 』 を 夕 
イブし ちゃうと、 ゲームが 始まって 『画面』 は 写真 0 みたくなる わけ。 

うえから 降りて くるの が、 みなさん 力く 『そうじゅう 7』 しちやう 『着陸 
船』 、 地上で うろち よろし てるのが 『移動 基地』 で 一す。 

この 『移動 基地』 は 『画面の はしつ こ』 にくる と [ "動く 方向 を かえて』 
もどって くるよう になって るから、 『地上』 を 『右から 左』 『左から 右』 
つてい う ふう に 動いて いる わけなの。 

さ 一て、 『ドッキング,』 のし かたは 国 B を 使って 『着陸 船』 を 動 
かして 図 みたい に 『ピッ タリ,』 あわせて 着陸 させち やえばい いの。 

ちょっと でも ズレ ちゃったら ダメ よ ！ 

うまく 着陸す ると 『ピコ ピコ ピコ/』 つて、 うえへ あがって いって、 ス 
コアに 『100 点』 プラスされ るんで 一す。 やった あ。 

こうやって 『10 回』 着陸 させち やえば 『大成功〃』 

この ゲーム は、 『うごいて ると こ 7』 に 着陸す るんだ から、 もう 『はち 
やめち や,』 に厶ズ カシィ の。 タイ ヘン, 

でも、 うまく 着陸して 『ピコ ピコ ピコ,』 つて ジャンプし ちゃうと、 は 
るみ、 うれしく なって とびあがつ ちゃう〃 




寺 写真 €) ドッキング〃 
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着陸 船 

一 移動 基地 




G プログラム • リス 卜 



REM ************************ 
REM *** 

REM *** « THE MARS » *** 
REM 

REM *♦* By 
REM *** HARUMI TAKAHASHI 
REM *** 
REM 
REM 
DEFINT A-Z 

WIDTH 40i25 s CONSO し E 0，25，0，0 
CO し OR 7,0 ： PRINT CHR$C12) ； 



-R E M 文 



- 初期設定 



GOSUB 8000 
H=0 

S=0 :X=17 :X1=15 :AV=1 :OVER=0 

REM - PRINT CRT SUB 

CO し OR 7,0 ： PRINT CHR$(:12) に 



ゲームの 説明 ど:!: 一す ア 



- 変数の 設定 だ もんね 



PR 皿 USING 



：： SCORE 



THE MARS 



画面.. i をキ レイに 

::max ####：] 'つ h 



しェ NEC 1：)-(：39, 1) ， 1 

し INEC 0»24)-(：39,24) , 1 



FOR 1=3 TO 38 
LOCATE 1,24 
NEXT 

CO し OR 6 
LOCATE Xl，23 



STEP 4 
= CO し OR 



: PRINT 



3： PRINT CHR$C142) 



-rli- 



画面 づ く り 



CO し OR 
し OCATE 

FOR 1=1 
NEXT 



X,22 ： PRINT 



TO 



じ 移動 基地.： を P R 



: 着陸 船』 を PR 



- 時間 まち T 



BEEP 1 

FOR J 
BEEP □ 



=1 TO 50 s NEXT 



FOR Y=21 TO 2 STEP 一 1 
し OCATE X,Y+1 ： PRINT 
LOCATE X，Y -"PRINT 

NEXT 



FOR J 
NEXT 



TO 1000 



-時間 まち. 



- 4 5 6 7 s _ 
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MARS 



1000 
1010 
1012 
1014 
1020 
1Q30 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
11A0 
1150 
1160 

-1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
12S0 
1290 
1300 
1310 
5000 
5010 
5020 
5030 
5040 
5050 
5060 
5070 
50S0 
5090 
5100 
5110 

「5120 

! 5140 
5150 
5160 
5170 

！ 5 ISO 
5190 
5200 
5210 
5220 



REM - MAIN し OOP - 

WHILE OVER=0 
FOR Y=3 TO 22 

IF Y MOD 3 =0 THEN GOSUB 5000 



I*=INKEY* :VX=0 

IF I$=CHR$(29) AND X> 1 THEN VX= 
IF I*=CHR*(2S) AND X<33 THEN VX= 



移動 基地.， を 表示 



をお した *? 
をお した 4 ? 



CO し OR 7 
し OCATE XiY- 

X=X+VX 

し OCATE X，Y 

NEXT 



: PRINT 



SPRINT " r し l J 



着陸 船. をけ しちやう 7 



着陸 船. を P R 



P=SCREEN(:X+2?23) 

IF P =ASCC"I") THEN GOSUB 5100 
IF POASCC'I") THEN 0VER=1 

WEND 



IF 0VER=1 THEN GOSUB 7000 
IF 0VER=i: THEN GOSUB 7400 

GOSUB 7200 



- ドッキングした？ 
—ドッキング しなかった？ 



- ゲーム ォーノ 
-成 功 7 



-入 力まち 



REM 



： ： ： GOTO ISO ：：：：：：：：：： 

MOVE STAT ェ UN SUB 



X1=X1+AV 

IF Xl>29 THEN AV=-1 
IF Xl< 1 THEN AV= 1 



-動 きを 決める 



し OCATE XI， 23 = CO し OR 6 
:::::::::： RETURN ：：：：：：： 

REM - JUMP し UNDER SUB 



FOR 1=1 TO 50 

BEEP 1 :BEEP □ 
NEXT 



PRINT 



riv 



-基 地 を 表示 



FOR Y=21 TO 2 STEP -1 

BEEP 1 
LOCATE XiY+1 ： PRINT 

BEEP 0 
し OCATE X,Y ： PRINT 
NEXT 



'ン フ.' 
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5230 
5240 
5250 
5260 
5270 
5300 
5310 
5320 
5330 
5340 
5350 
5360 
5370 
53S0 
5390 
5400 
5410 
5420 
5430 
5500 
5510 
5520 
5530 
5540 
5550 
5560 
5600 
5610 
5620 
5630 
5640 
5650 
7000 
7010 
7020 
7030 
7040 
7050 
7060 
7070 
7080 
7090 
7100 
7110 
7200 
7210 
7220 
7230 
7240 
7250 
7260 
7270 
7280 
7290 
7300 
7310 
7320 



GOSUB 5300 



スコア 



，ス" 



REM 



： RETURN ： ： ： ： ： 

ADD SCORE SUB 



IF S<900 THEN GOSUB 5500 
IF S=900 THEN GOSUB 5600 

B=S+10Q < 



-メーター P R I 



]ァ • フラ： 



CO し OR 7 

LOCATE 9，0 :PRINTUSING "####'* ?S 
IF S=10Q0 THEN 0VER=2 



- スコア を 表示. 



- 10 回 着陸した の？ 



— RETURN ：：：：:::::: 

REM PRINT METER SUB 1 ― 

CO し OR 2 

し OCATE INTCS/10Q:)*4,24 ： PRINT 
： — = ： RETURN ：：:::::::: 

REM 

LINE (36, 24) -(39, 24) ， ,2 
：：：：：：：：：： RETURN s ：：：：:: s : : 



"•+CHR$C142) 5 



REM 

CO し OR ^ 
LOCATE 5- 
し OCATE 5, 
し OCATE 5^ 



GAME OVER SUB ——- 



7 ： PRINT 
： 三： ： PRINT 
9 ： PRINT 



"I I i I— I I I I I H I I I I H 

' し 1 1 丄 "L-LU 0_l 1 I 1 I 1 J I J_l_J 



CO し OR 7 
し OCATE 5， 11 ： PRINT 



PUSH ON し Y 匚 S コ KEY! 



= ：：：：：：：： ： RETURN ： : : : : 

REM - WAIT INKEY SUB - 

WHI し E INKEY$<>"s" 

C=INT(RND(1.)*7)+1 
LINEC 5)~ (39, 13) 9 M 1",C,B 



WEND 

FOR 1=1 TO 50 

BEEP 1 :BEEP 0 
NEXT 



キー入力 ま ち 



1 ' ヒ' •： 



MARS 



7330 し OCATE 0，24 
7340 FOR 1=1 TO 25 
7350 PRINT 
7360 NEXT 
7370 ' 

7372 IF S>H THEN H=S 
7374 ' 

73S0 ：：：：：：：：：： RETURN : 

7390 ' 

7400 REM 

7410 CO し OR 2 

7420 し OCATE 9， 7 ：： PRINT 

7430 ' 



画面 をキ レイに しち' 



i ァ 登録.' 



7440 
7450 
7460 
7A70 



CO し OR 5 
し OCATE 5， 9 
し OCATE 5， 10 
し OCATE 5-, 11 



74SQ ' 
7490 ：：：：：： 
7500 ' 
SOOO REM 
SO ID ' 
S020 し OCATE 
8030 し OCATE 
S040 し OCATE 
S050 ' 



： PRINT 
： PRINT 
： PRINT 

RETURN : 



YOU SUCCEED 



ァ T タ 八， 'リに r 10 カイ」 モ r STATION」 
二 チャフ' ソ フ スル 3 卜 力" テ" 午 マシタ ！！ 
モウ， 八' ソ千 リイ' ソテ 「フ °匚1」 ネ！ 



'セージ ff 



DEMONSTRATION SUB 

： 三:， 0 ： COLOR 1 ： PRINT +STR1NG$ (： 1: 三:， 

14 ? 0 = CO し OR 7 :PRINT " THE -MARS '， 

S, 1 : CO し OR 1 ： PRINT STRINGS (21 ，''—" .） 



£'•060 
S070 
： 三: ひ 三 :0 
8090 
： 三: 100 
3110 
： 三: 120 
8130 



し OCATE 0?3 
PRINT ： PRINT 



PRINT 
PRINT 
PRINT 
PRINT 
PRINT 



： PRINT 
SPRINT 
SPRINT 
： PRINT 
'•PRINT 



: CO し OR 5 
' ュノ 「 GAME 」 八， r 
•ON j 二 「し UNDER」 
' 、、一 厶 すイ 3 ゥ」 モ 
， テ" モ， コノ ケ" ー厶， 



7113-1 j ノ チシ"3 ゥ 二 アル 「STATI 
1 チヤ ヮ リク サ 1： チサ ェ イイ ノ o 
r KEY ソ ゥサ」 モ， カン タン テ" 
スフ コ"ーフ 厶' リカシ イ ノ o 



r SPEADj 
' 「ホ "カー 



八 



八お イシ， 
」 'ソテ 



ホ ニノ ノ ス： 3シ 「フ 
■GAME OVERj 



'レ チヤ' ソ テル」 r r> 
シ チャウ ンタ" モン。 



8140 


し OCATE 


5， 


H 


SCO し OR 


6 


： PRINT 


"GAME" 


8150 


し OCATE 


34 ? 




： CO し OR 


4 


SPRINT 


"STATI" 


S160 


し OCATE 




6 


■•CO し OR 




： PRINT 


"ON" 


8170 


し OCATE 




6 


： CO し OR 


6 


： PRINT 


" し UNDER" 


8180 


し OCATE 




： 三： 


'-CO し OR 


3 


： PRINT 


"ク" ー厶 す ィ3 ゥ'' 


8190 


し OCATE 


16， 


8 


= CO し OR 


3 


： PRINT 


"KEY ソゥ 1 r" 


8200 


し OCATE 


2， 


12 


に 0 し OR 


" 


： PRINT 


"SPEAD" 


8210 


し OCATE 


26, 


12 


： CO し OR 




： PRINT 


"ス" レ チヤ'' メリ テル" 


8220 


し OCATE 


17， 


14 


： CO し OR 


2 


： PRINT 


"GAME OVER" 



8230 
8240 
3250 
S260 
8270 
3230 
8290 
3300 
8310 
ら'320 
S330 
8340 
8350 
8360 



ゲームの 説明 



し OCATE 0,16 SCO し OR 6 

PRINT "i— «<CAST 

FOR 1=1 TO 6 
PRINT "I 
NEXT 

PRINT 



-«KEY 



CO し OR 
し OCATE 
し OCATE 
し OCATE 
し OCATE 
し OCATE 



32， 17 
32, 18 
32， 19 
21 » 20 
21，21 



： PRINT 
： PRINT 
: PRINT 
: PRINT 
： PRINT 



ワク を P R I N 



- キー 操作 を 説明 
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8370 
S3S0 
8390 
3400 
8410 
8420 
SA30 
3440 
S450 
8460 
S47D 
8480 
S490 
S500 
85 10 
8520 
S530 
3540 
3550 
S560 
8570 
S5S0 
3590 
8600 
8610 
S620 
S630 
- 8640 
8650 
3660 
： 三る 70 
S6S0 
8690 
S700 
8710 
8720 
8730 
S740 
8750 
8760 
8770 



し 0CATE 21， 22 ： PRINT 



I — I I — I I I 



SYMBOL (30 长 16， 21*: 三::） ，CHR$(:29:) ，2, 1, 
SYMBO し （:36*16,21并:三::） ，CHR$(:2: 三::） ，2, 1， 



LOCATE 2， 19 
CO し OR 7 ： PRINT 
CO し OR 5 ： PRINT 

し OCATE 1,21 
CO し OR 6 ： PRINT 
CO し OR 5 "-PRINT 



「し UNDER」 



-li J i " ； 
- STATION 」 



- 登場人物 を P R 



COLOR 7 

LOCATE 5,24 ： PRINT PUSH ONLY LSI KEY 

D$=" THE -MARS " 

WHI し E INKEY$<>"s" 

D$=RIGHT$(D$i9) 十し EFT$ (D$, 1) 
LOCATE 14i0 SCO し OR 7 = PRINT D$ 

R=RND(1) 

WEND 



FOR 1=1 TO 50 

BEEP 1 = 已 EEP □ 
NEXT 

LOCATE 0i2A- 

FOR 1=1 TO 25 

PRINT 
NEXT 



-入 力ま ち 



画面 をキ レイに しちやお' 



RETURN 



REM =========================== 

REM FORESIGHT PLANNIG SECTION 
REM =========================== 




10 月 22 曰 （金） はれ 

え 一と、 きょうは 『中間 テス 卜』 でした ぁア 

でも、 その わりに は、 はるみ 『あせって ない』 でしよ？ 

そうなんです。 『女子高』 つてち やあんと 『まじめ』 に 『学校』 

へいつ てれば、 単位 を とれ るんで す。 
だから、 『中間 テス 卜/』 つてい つても、 『だいへん だ ぁア』 つ 

て カンジがない の。 いいで しょ？ 

そういえば きょう 『がっこう』 のかえ り、 とっても 『うれしい』 
ことがあつ だんです。 

どんな ことかって いうと、 『がっこうの かえり』 に 『ぶんぼうぐ 
やさん』 によったら、 な あんと 『八ィ -テック ポ イン 卜』 の 『みすい 
ろ』 と 『ピンクい ろ』 と 『^ラサ キ いろ』 がう つてたん です〃 

ぁッ、 『八 ィ- テック ポ イン 卜』 つてい うの は、 すつ ごぐ ほそ <書 
ける 『サイン ベン』 のこと で、 『めいつ ばい/』 ちから いれて 書 < 
はるみに とって 『なぐて はならない 大切な もの』 で、 とっても 気に 
いって るんで 一す。 

ところが あ、 いままで、 す 一つと 『< ろ』 とか 『あお』 とか 『み 
どり』 とかの 『じみ 一ない ろ』 しかう つてなかった から、 『もっと 
ほかの いろ をう つて <れ ない のかな あ ーダ』 つて、 はるみ 思って た 
ん です。 

そこへ、 はるみの 『だいすき ア』 な 『みすいろ』 とか 『ピンクい 
ろ』 とかが あつたんで、 すつ ご < ルン ルンし ちゃった わけなの。 

もう、 その 『かえりみち』 なんか、 はるみ 『にこに こダ』 しちや 
つて、 ほかの ひとから 『なんな の、 あの こお ーダ』 つて 思われち や 
つて こまつち やい ました。 

でも、 うれしい ッ 7 
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みなさん, みなさん は 『おうち』 で 『しば 力、 り』 つて やった こと ある 
かしら？ 

はるみ は、 たまに 『パパのお てつだい 7』 する こと あるんだ けど、 『し 
ばかり』 つて 思った より 『た 一い へん,』 なんです。 

『電動し ばかり,』 とかなら、 すこし は 『ラ ク』 なのか もしれ ない けど、 
はるみ ン ちの は 手で 『カラカラ』 しばかり しなく ちゃい けない の。 

『しば を かつち やう 7』 つてい つても、 ただ 『おしてる』 だけ じゃあう 
まくい かない、 『地面』 に 『グ グッ 7』 つてお しっけな がらし なくつ ちゃ 
いけない ので、 手が すつ ご 一く 痛くな つち やうんで す。 ク スンア 

さあ、 みなさん も 『しば 力 、り,』 に チャレンジして ね〃 

• あそび かた 

えと、 RUN しちやう と 『画面』 に は 写真 0 みたく 『ゲームの 説明』 が 

PR I NT されち やい ます。 
二の 『ゲームの 説明』 をよ 一く 読ん じ やつてから 『小文字の s 』 を タイ 

プ しちやう と、 『ゲーム』 が 始まって 写真 @ みたい になつ ちゃうの。 
『ゲーム 内容』 は、 時間 内に 『お 庭』 に はえて る 『しば』 を 『岩』 ：:： 

にぶつ かつち やわない ように 『たつく さん,』 刈つ ちゃうつ ていう ものな 

ん です。 わ あ 一、 すご 一い, 
こうやって、 『タイム』 が 〇 になって 『メーター』 力く 『ぜ 一ん ぶ 赤に な 

つち やう/』 と 自動的に 『画面』 を しらべて つて 『どれ だけ 刈った の？』 

か を 『パー セン 卜』 で pR | N ，しちやう の。 さすが 7 

だけど、 『ゲーム』 の 途中で 『岩』 にぶつ かつち やうと、 スコア は 『〇 
点』 のま ま 『ゲームオーバー/』 しちや うんで 一す。 
『ゲームオーバー』 になつ ちゃって、 『もう 1 度 あそびた いな あ一/』 

つて 思ったら、 『小文字の s』 をお して ネ。 

この 『ゲーム』 で、 『30 パーセント』 を こえなかった ひとは、 まだまだ 
『修行』 がたりない （？） かな あ。 





LAWN MOWING 



寺 写真 o ゲームの 説明です。 寺 写真 @ はじめは だいじょうぶ/ 
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B 

y a 



o プログラム 'リスト 



REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
DEFINT A-Z 

WIDTH 40»25 = CONSO し E 0，25i0，0 
CO し OR 7,0 ： PRINT CHR$C12:) ； 



*** 

*** « し AWN MOWER » *** 
*** 

By *** 
*** HARUMI TAKAHASHI *** 

*** 

************************ 



- R E M 文 



- 初期設定 



GOSUB SOOO 



- ゲームの 説明し ちゃ' 



=□ 



I 
I 
I 
I 
I 
I 
I 
) 
) 
) 
) 
) 
) 
) 
) 
】 

】 
] 
3 
〕 
] 
〕 
D 
3 

3 ' 

DO 

10 

20 

30 

50 

70 
30 



:C$= 



□ :SS=0 :T=0 :X=19 ： Y=13 
REM 

CO し OR 7,0 ： PRINT CHR$C12) ； 
PRINTUSING " 匚:: SCORE 07. D < し AWN MOWER> 



OVER=0 



- 変数の 設定 



し OCATE 0^24 = CO し OR 5 
PRINT "C=TIME "+STRING$C31 1 



しェ NEC- 



^A:)— (:37，2ん） 



—'画面.:， をキ レイに しちやう 7 
:MAX 特持 #•/•]'' 5 H 

タイム を 表示 



し OCATE 0， 1 = CO し OR 6 
PRINT '' r "+STRING$(:37i" —":) h 
FOR 1=2 TO 22 

PRINT "| "+STRING$(:37 い 
NEXT 

PRINT ,,L -"+STRING*C37, "- ,, )- 



- ワク を 描く 



しェ NEC 



2:) — (:37，22:> 



， 4 ， BF 



FOR 1=1 TO 100 

し OCATE RND (： 1 ：) *37+ 1 ， RND (： 1 ：) *20+2 
CO し OR 2 ： PRINT 

NEXT 



'しば』 を 描く 



1 岩.： を P R 



REM —— MAIN し OOP 

WHI し E OVER=0 

I$=INKEY$ ： VX=0 ： VY=D 
IF I*=CHR$(29 
IF I$=CHR$(2S 
IF I*=CHR$(30 
IF I$=CHR*(31 



VY=0 




THEN 


VX = 


THEN 


VX = 


THEN 


VY= 


THEN 


VY= 



二 C$= M 卜'' 
:C$=" J -" 



-曰 をお した？ 
-!; >: をお した？ 
-E をお した？ 

-S をお した？ 



o □ 一 

2 3 . 



5 6 7 S 9 _ 

3 3 3 3 3. 
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LAWN MOWING 



1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1212 
1214 
1220 
1230 
1240 
1250 
1260 
1270 
12S0 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
5000 
5010 
5020 
5030 
5040 
5050 
5060 
5070 
5100 
5110 
5120 
5130 
5140 

5160 
5170 
51:30 
5190 
5200 
5210 
5220 
5230 
5240 
！ 330G 
5310 
5320 
5330 
5340 



P=SCREEN ( X+VX ， Y+VY ) 
IF P=ASC< ,, *"> THEN 
IF P=ASC( ,, i") THEN 
IF PMSCC'ir:) THEN 

CO し OR 7 
し OCATE X,Y ： PRINT " ' 



0VER=1 
GOSUB 5000 
VX=0 :VY=0 



X=X+VX : Y=Y+VY 
し OCATE X,Y ： PRINT C* 
IF T MOD 3 =□ THEN GOSUB 550D 



r 岩 j にぶつ かった？ 
f しば.; ， をかった？ 
ワク.： にぶつ かった？ 



「しばかり 機 j をけ す, 

'しばかり 機.' を P R I N 
しば ； を はやす 



T=T+1 
IF 1 



- タイム • カウ: 



300 THEN 0VER=2 
し OCATE INT(T/10.)+7 ? 24 = CO し OR 2 s PRINT CHR*C142) ； 
WEND 



IF 0VER=1 THEN GOSUB 6000 
IF 0VER=2 THEN GOSUB 5100 



-ゲ一 厶 ォーノ 
—スコア 計算 J 



GOSUB 7000 



REM 

FOR 1=1 
BEEP 
NEXT 



GOTO ISO ：：：：：： 

一 AWN MOWING SUB 



TO 3 

1 :BEEP □ 



r ビ': 



RETURN ：：：：：： 

3 CO RE ADD SUB 



REM 

FOR Y= 

FOR 



P=SCREEN(:X，Y) 

IF P:ASCC" つ THEN GOSUB 5300 

し OCATE X,Y ： PRINT " " 

NEXT 
NEXT 



> コア 計算, 



REM 



： RETURN ：：：：：：： ^ s ^ 

SCORE A COUNT SUB 



SS=SS+1 

S =SS/777*'J.OO 
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5350 
5360 
5370 
53SQ 
5390 
5400 
5410 
5420 
5430 
5500 
5510 
5520 
5530 
5540 
555D 
5560 
5570 
5580 
5590 
5600 
3610 
60D0 
6010 
6020 
6030 
6040 
6050 
6060 
6070 
60: 三 :0 
6090 
6100 
6110 
6120 
6130 
7000 
7010 
7020 
7030 
7040 
7050 
7060 
7070 
7080 
7090 
7100 
7110 
7220 
7230 
7240 
7250 
7260 
7270 
7280 
- 7290 
7300 
7310 



BEEP 1 
CO し OR 7 

し OCATE 9,0 rPRINTUSING "###" 5S 
BEEP 0 



スコア を 表示 



RETURN 



REM 



謂 SUB 



I = INTCRND(i:)*37:) + l 
J = INTCRNDC 1)*21：)+2 



P=SCREEN(: ェ， J: 
IF P=ASC("-i 



THEN 5520 
し OCATE Ii J = CO し OR " ： PRINT 
：：：!：：：：：： RETURN ：：：：：：：：： 

REivj CRASH MOWER SUB - 

FOR 1-135 TO 127 STEP 一 1 



しば を はやしち' 



FOR J=1 

BEEP 
NEXT 



TO 20 
1 :BEEP □ 



し OCATE X，Y SCO し OR 
NEXT 

： ： ： ： s : s : : : RETURN ： ： 



： PRINT CHR$Ci:) 



爆発 だ 



REM 

CO し OR 
し OCATE = 
し OCATE f 
し OCATE f 



GAME OVER SUB 



7 ： PRINT 
S ： PRINT 
9 ".PRINT 



CO し OR 7 
し OCATE 5， 11 ： PRINT 

WHI し E INKEY^O'-s" 



C=INTCRNDC1)*7)+1 

しェ NEC 2， 5)-C36i 13) 



WEND 

FOR 1=1 TO 50 

BEEP 1 :BEEP □ 
NEXT 



I -i hH I I I I H I I I I H 

I I 丄 i i L_l J_l I I 1 I 1 J 1 J- L_l 



PUSH ON し Y CSIl KEY! 



- キー入力 ま ち ア 



し OCATE 0^24 
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LAWN MOWING 



7320 
7330 
7340 
7350 
7360 
7370 
73S0 
7390 
三: 000 
3D10 
3020 
E:030 
3040 
3050 
^□6G 
三: 070 
三: 0: 三 :□ 
：：090 
3100 
E:ilO 
3120 
：：130 
：：140 
3150 
ョ: 湖 
：：170 
3180 
3190 
3200 
3210 
3220 
3230 
3240 
3250 
8260 
三: 270 
3280 
B290 
8300 
8310 
S320 
S330 
8340 
S350 
S360 
8370 
8380 
8390 
8400 
8410 
SA20 
8430 
8440 
8450 
8460 
8470 
S4S0 



FOR 1=1 TO 25 

PRINT 
NEXT 

IF S>H THEN H=S 



RETURN 



画面. をキ レイに す るんだ あ 7 



、ィ スコア 登録 J 



REM 



DEMONSTRATION SUB 



LOCATE 8»Q 
LOCATE 13 
し OCATE 3, 1 

LOCATE 0,3 
PRINT ： PRINT 



: CO し OR 1 ： PRINT 7J"+STRIN(5$(:1: 三:， 
: CO し OR 7 ： PRINT - " i_AWN，nOWER " 
： COLOR 1 -"PRINT STRING* (2 1, "~") 



I :) + "『/'■ 



PR 丄 MT 
PRINT 
PRINT 
PRINT 
PRINT 



i PRINT 
: PRINT 
： PRINT 
: PRINT 
： PRINT 



！: CO し OR 5 

" サ y! ST サン 八， p ：ォゥ チ」 デ、 
" AJI/5; 八， タ 7 二 「ォ テ 'リタ" ィ j 7. 
" >Y W.) j ッ亍 ォモ' ：ノタ 3 リ モ r/ ?— 'r、 
" 「テ" v 卜" ゥ！ ！ j 卜 カナ ラ ラヮ 力 モシ 



" ノ /、， 
" サァ， 



ミ T サン 



T) フカ 一 7 」 

モ 「シ 八" 



カリ」 二 



InY W j シタ ：□ 卜 アル 7 
I レコ卜 アル ンタ w ケト" ， 「シ 
！」 す イテ" ス 0 ホン 卜！ 
すィケ 卜" ノ ゥ？ 1 

フ': ノ チヤ イウナ イノ o 

TRY vtSt:?:o 



LOCATE 


1 , 


4 


=C0 し OR 


6 


SPRINT 


"SI" サン！ " 


LOCATE 


16， 




: CO し OR 


3 


： PRINT 


" ォウ チ'' 


し OCATE 


25, 




s CO し OR 




： PRINT 


"シ/にカヮ'' 


LOCATE 


14 i 


6 


SCO し OR 




： PRINT 


" ォテ 'リタ" ィ'' 


し OCATE 


2, 


10 


= CO し OR 




： PRINT 


M テ、、 ： ノ 卜、、 ウ'' 


し OCATE 


10， 


12 


： CO し OR 


3 


： PRINT 


"カラカラ" 


し OCATE 


13, 


14 


！: CO し OR 




:PRINT 


"y)Y カリ ,, 


し OCATE 


22 i 


14 


： CO し OR 




:PR1NT 


"TRY" 



ゲームの 説明 



LOCATE 16 =C0 し OR 6 

PRINT " r— <«CAST 

FOR ェ =1 TO 6 
PRINT "| 
NEXT 

PRINT 



r— «<KEY 



- ワク を 表示 



CO し OR 7 
LOCATE 32， 17 
し OCATE 32i IS 
し OCATE 32,19 
し OCATE 21， 20 
し OCATE 21， 21 
し OCATE 21， 22 



： PRINT 
： PRINT 
： PRINT 
: PRINT 
： PRINT 
： PRINT 



i i i ~ i i ~ i 



i — i i — i i — i 



SYMBO し （: 30* 16， 21 普 8) iCHR$(29) ，2， 1，2 

SYMBOL (36*16,21*8) iCHR*(28) ，2， 1，2 

SYMBOL (33*16,18*8) iCHR$C30) ，2，1，2 

SYMBOL (:33并 16,21*8:) ,CHR$(31) ，- 2, 1,2 



- 操作 を 説明 



し OCATE 2，1： 三： 
CO し OR 7 ： PRINT 
CO し OR 5 ： PRINT 

し OCATE 2i20 
CO し OR 4 ： PRINT 



「シ 八" カヮ や- 



-登場人物 を 表示 
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8490 
S500 
85 10 
8520 
S530 
8540 
8550 
8560 
8570 
S5S0 
S590 
8600 
8610 
8620 
S630 
S640 
8650 
3660 
8670 
S6S0 
S690 
S700 
37 10 
8720 
8730 
S7A0 
8750 
8760 
8770 
8780 
8790 
8800 
8810 
8320 



CO し OR 



： PRINT 



し OCATE 2,22 
CO し OR 2 SPRINT 
CO し OR 5 ： PRINT 



■in 



CO し OR 7 

し OCATE 5,24 ： PRINT PUSH ON し Y 匸 SU KEY 



D$=" し AWN ■ MOWER " 

WHI し E ェ NKEY$<>''s" 

D$=RIGHT$ CD$, 11) + し EFT$ (: D$ ， 1 ) 
LOCATE 13,0 SCO し OR 7 ： PRINT D$ 

R=RNDC1) 

WEND 



FOR 1=1 

BEEP 
NEXT 



TO 50 
L :BEEP □ 



イビ': 



し OCATE 0i24 

FOR 1=1 TO 25 

PRINT 
NEXT 



画面.' をキ レイに. 



RETURN 



REM 
REM 
REM 



FORESIGHT PLANNING SECTION 




10 月 23 曰 （土） はれ 

え 一と、 きょう も、 またまた 『中間 テス 卜ア』 でした あ。 
『中間 テス 卜』 は、 『かよ ラ曰』 まで ありま 一す。 

えと、 はるみ は 『E 組』 なんだ けど、 『B 組の こ』 が、 きのう、 
『退学 7』 させられち やったら しいの。 かわいそう Z 

どうして、 『退学 ア』 になつ ちゃった のかって いうと、 『ロッテ 
ij ァ』 の八ン バーグ やさんで 『アル バイ 卜』 してる とこ をみ つかつ 
ちゃった からなん です。 

はるみ ン とこみ たいな 『女子高』 つて、 あんまり 『お べんきよ ラ』 
しな < て も 『だいじょうぶ,』 なんだ けど、 そのかわり、 ちょっと 
『規則い はん』 しちやう と、 すぐ 『退学/』 

それ も、 すつ ごく 『規則』 が キビ シィ から、 1 年生のと きに 『や 
めちゃ ラ』 ひと、 とってち おおいん です。 

ぁッ、 でも、 『おんなのこ』 つて 『うわさ』 が ひろがる のって、 
すつ ごぐ 『はやい』 のね。 

だって、 きのう 『退学』 させられた ばっかり なのに、 もう、 その 
こが、 『だれの ファンだった』 とか、 『どんな 「たべもの」 がすき 
だった か』 な あ 一ん てことまで、 ちゃ あんと つたわって ぐんる だ も 
の。 スゴィ Z 

ちなみに、 そのこ は 『オフ コース』 の ファンでした あ/ 

『オフ コース』 つてい えば、 『小 田さん』 が 『けっこん ア』 しち 
やい ましたね え。 ショック 7 

はるみの クラスで は、 その 『ショック』 で、 4 人 もや すんだ ひと 
がいました。 
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人の いると ころなら、 どこでも 『神出鬼没/』 にあら わる は 『ゴ ミ』 。 

だから、 人間の 『宇宙 進出』 に ともなって 『ゴ ミ』 も 『うちゅう』 へ!! 

そんな わけで、 宇宙空間の いたるところ 『ゴミ だらけ』 になつ ちゃって、 
もう、 『宇宙の なかに ゴミが ある』 のか 『ゴミ のなかに 宇宙が ある』 のか 
わかん なくなつ ちゃい ました。 タイ ヘン 7 

そ 二で あらわれ たのが 『宇宙の ゴミ やさん』 で 一す。 

この 『ゴミ やさん』 は、 ちらばつ てる 『ゴ ミ』 を 『あつめち やう 7』 な 
んて 手間の かかる こ と しないの。 

とにかく、 決められた 日数のう ちに 『たのまれた 場所』 がキ レイに なつ 
てれば いいんだ もん、 その 場所に ある 『ゴ ミ』 を 外に 押し だしち やえば 文 
句 はない ア 自己中心 的〃 はっきり いって、 これ は 『宇宙 ゴミ 大戦 争』 ねだ 

• あそび かた 

RUN しちやう と 『画面』 に は 写真 O みたく 『ゲームの 説明』 力く 
NT されち やい ます。 

この 『ゲームの 説明』 をよ 一く 読ん じ やつてから 『小文字の s』 を タイ 
プ すると、 ゲームが 始まって 写真 0 みた く なつち やう わけ。 

えと、 『画面』 じゅうに、 た 一く さん 『ちらばつ ちゃって る』 く 〉 は 
『ゴ ミ』 で、 これ を 『時間 内』 にいつ ばい 『画面の 外』 に 押し だしち やえ 
ばいい の。 

でも 『画面』 に は 『機雷』 く 〉 も あるから 『注意,』 しなく つち や〃 
この 『機雷』 は、 ほんの ちょっと でも 『動かしち やったり』 『さわつ ち 

やったり』 しちやう と 『爆発 だ』 す るんで す。 タイ ヘン r 

『ゴ ミ』 は、 いっぺんに 『いくつで も』 運べて、 それ を そのまま 『画面 
の はしつ こ』 まで もってくと、 スコアに 『〗 点』 プラス されます。 
でも、 このと きに、 『機雷』 も いっしょに 動かしち やったり すると 『機 

雷』 力く 『爆発 /』 しちやって 『GAME OVER 7』 になつ ちゃうから 
注意 してね, 



DUST MAN 




o プログラム • リスト 



10 REM 
20 REM 
30 REM 
AO REM 
50 REM 
60 REM 
70 REM 
80 REM 
90 REM 

100 DEFINT A-Z 
WIDTH 40i25 
CO し OR 7，0 



普 

*** < THE DUST MAN > *** 
*** 

*** By *** 

*** HARUMI TAKAHASHI *** 
*** 



•R E M 文 



CONSOLE 0,25,0,0 
PRINT CHR$(:12) ； J 



19 ： Y=13 :VX=0 :VY=0 =C$=" 卜'' = F し AG=0 



: PRINT CHR$C12) ： 
2) — (:37，22) ， " 



，BF 



110 
120 
130 ' 

140 GOSUB SOQO 
150 ' 
160 H=0 
170 ' 

ISO S=0 :T=0 ： 
190 ' 
200 REM 
210 ' 

220 CO し OR 7,0 
225 しェ NEC 1， 
230 ' 

240 PRINTUSING "匚 = SCORE 
250 ' 

260 し OCATE 0,24 = CO し OR 5 
270 PRINT "LIzTIME "+STRING* (31 , 
280 ' 

290 LINEC 7, 24) -(37, 24) , "1" ,3 
300 ' 
310 
320 
330 
340 
350 
360 
370 
3S0 
390 
400 ' 
410 LINE 
420 ' 

430 LOCATE X,Y = CO し OR 7 ： PRINT C$ ， 一 
440 ' 

1000 REM MAIN LOOP - 

1010 ' 

1020 WHILE F し AG=0 
1030 ' 

1040 I$=INKEY$ 

1050 IF I$=CHR$(29) THEN VX=-1 :VY=0 
1060 IF I$=CHR$(28) THEN VX= 1 :VY=0 
1070 IF I$=CHR*(30) THEN VY=-1 :VX=0 



- 初期設定 



ゲームの 説明 



変数の 設定 



- 画面 をキ レイに. 



FOR 1=1 TO 300 

し OCATE INT(:RND(:1)*37:)- 
C0 し OR 6 ： PRINT "□" 

NEXT 



03 «DUSTMAN» 匚!: MAX 5 H 



画面 づく り 



INT(RND(:l:)*21:)+2 



'ミを P R I N 



FOR 1=1 TO 50 

し OCATE INT (: RND (: 1 :) *37) + l, ェ NT (: RND (: 1 ：) #21) +2 
CO し OR 2 ： PRINT 

NEXT 



機雷 を P R I N 



0 ， !)-(： 3S , 23 ：) i CHR$ (： 255 :) 



，B 



-ゴミ やさん 表示 



；:(：$='' 卜'' 
:C$="-1 " 
:C$='V" 



-B をお した？ 
-曰 をお した？ 
■Q] をお した？ 
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DUST MAN 



1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1130 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
5000 
5010 
5020 
5030 
5040 
5050 
5060 
5070 
5100 
5110 
5120 
5130 
5140 
5160 
5190 
5200 
5210 
5220 
5240 
5250 
5260 
5270 
5300 
5310 
5320 
5330 
5340 
5350 
5360 
5370 



IF I*=CHR$(31) THEN VY= 1 :VX=0 ： C$= 



P=SCREEN (: X+VX ， Y+VY.) 

IF P=255 THEN GOSUB 5000 

IF P-ASC (："□") THEN GOSUB 5100 

IF P=--ASC( ,, * M ：) THEN F し AG=1 



-B をお した' 



ゴミ をお すの？ 
やられた 



CO し OR 7 
LOCATE X，Y ： PRINT " " 

X-X+VX 
Y=Y+VY 

し OCATE XiY ： PRINT 



-ゴミ やさん をけ す 



T=T+1 

IF T=300 



THEN F し AG=1 



CO し OR 2 

LOCATE INT CT/ 10) +7, 24 s PRINT 



： やさん PR I NT/ 



I M E を 表示 



WEND 

GOSUB 7000 



-'— ム ォーノ 



REM 



: GOTO ISO ：：：：：：：：：： 

STOP THE DUSTMAN SUB ― 



BEEP 1 

VX=-0 ： VY=0 
BEEP 0 



：：：：：：：：：： RETURN ：：：：：：： 
REM 

AX=X :AY=Y :OVER=0 



WHI し E OVER=0 

AX=AX+VX :AY=AY+VY 
P=SCREEN(AX，AY:) 

IF P= 32 THEN GOSUB 5300 
IF P=255 THEN GOSUB 5400 
IF P= 42 THEN 0VER=1 =F し AG=1 

WEND 



-ブロック をお す 



REM 



: RETURN ：：：：：：：： 

PRINT B し OCK SUB 



CO し OR 6 
し OCATE AXiAY 



： PRINT "□" 



0VER=1 



RETURN 
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— ► 



5380 
5400 
5410 
5420 
5430 
54A0 

5460 
5470 
54: 三: 0 
5490 
5500 
5510 
5520 
7000 
7010 
7020 
7030 
7040 
7050 
7060 
7070 
70S0 
7090 
7100 
7110 
7120 
7130 
7140 
7150 
7160 
7170 
7180 
7190 
7200 
7210 
7220 
7230 
7240 
7250 
7260 
7270 
7280 
7290 
7300 
7310 
7320 
7330 
7340 
7350 
7360 
7370 
7380 
7390 
8000 
3010 
8020 



REM 



SCORE ADD SUB 



FOR 1=1 TO 10 

BEEP 1 :BEEP 0 
NEXT 

S=S+10 :0VER=1 



CO し OR 7 

し OCATE 9,0 rPRINTUSING 5 S 



1 ァを プラスし ちゃう 



：：：：：：：：：： RETURN ：：：：：： 

REM - GAME OVER SUB 

FOR 1=135 TO 127 STEP -1 

FOR J=l TO 20 

BEEP 1 :BEEP 0 
NEXT 

LOCATE X,Y -CO し OR 

NEXT 

CO し OR 4 

LOCATE 5， 7 ."PRINT " 

し OCATE 5, 8 ： PRINT " 

し OCATE 5, 9 ."PRINT " 



: PRINT CHR$Ci:) 



- 爆発」 



I i HH I I I I H I I I I H 

I 1 丄 J_l~ L_l I I I I I j 1 j_ i_| 



CO し OR 7 

し OCATE 5,11 ： PRINT PUSH ONLY 匚 SH KEY ！ 

WHILE INKEY$<>"s" 



C=INTCRNDCi:)*7:) + l 

し INEC 5) - （38， 13), "匿 

WEND 



FOR 1=1 TO 50 

BEEP 1 2 BEEP □ 
NEXT 



«C ? B 



： 一入 力まち 



し OCATE 0,24 

FOR 1=1 TO 25 

PRINT 
NEXT 



IF S>H THEN H=S 

：：：：：：：：：： RETURN ：：：：：：：：：: 

REM - DEMONSTRATION SUB 



- 画面 をキ レイに/ 



LOCATE ら 、0 :C0 し OR 1 ： PRINT "/Ji'+STfUNW (： 1: 三:,'' ■" ：) + "に/" つ 



DUST MAN 



3030 
SD40 
3050 
S060 
S070 
： 三: ひ 三 :0 
8090 
8100 
3110 
SI 20 
8130 
8140 
S150 
SI 60 
8170 
8 ISO 
S190 
： 三: 200 
8210 
8220 
S230 
S240 
8250 
S260 
S270 
S2S0 
S290 
8300 
8310 
8320 
S330 
S340 
8350 
8360 
S370 
8380 
S390 
8A00 
8410 
S42Q 
8430 
8440 
8450 
S460 
8470 
3480 
8490 
8500 
8510 
8520 
S530 

S560 
8570 
8580 
8^90 



し OCATE 


14i 


□ ： 


CO し OR 7 ： PRINT " DUST -MAN " 




し OCATE 


8， 




CO し OR 1 ： PRINT STRING* (.21 1 "~" ) 




し OCATE □ 




= CO し OR 5 




PRINT : 


PRINT 


" H ノ 「GAME」 /)， タ 一 y チラ 八"'' ノチャ フタ 「：]" 


S」 ， ' 


PP 了 Ml" : 


PRINT 


"「午 ライ」 ラ 3 グ すカ" ラ 「 DUST* MAN 」 力" 午 レイ 二 


シ チャウ' 


PRINT : 


PRINT 


"•\jf -\0 >V、 — し t" -7.o 




PPT NT : 


PRINT 


" r rj 、、一し す. ィ 3 ゥ」 八， r 力 "メ ニノ」 シ" ユウ 二 タフ サン 


チラ/ r 1 


PRINT : 


PRINT 


'しリ：！：ャ， ソ亍 j し <□> 1 r: パ、； Tr/"T-i'」 一 「力、、 t".' ノ ソ卜 

/ に ゾ ノ IU n. LJ / -' /'一， / 1 」 一 i 9 - ハー' 1 




PRINT : 


PRINT 


11 オシ タ" シチ， ゥッ ティ ウノす ノ《 カン ターン！ ！ 




し OCATE 






： COLOR 4 ： PRINT "GAME" 




し OCATE 


32， 




二 CO し OR 2 =PRINT 'つ、、 ニ:" 




し OCATE 


1 


，6 


SCO し OR 3 ： PRINT ' 'キラ ••)'" 




し OCATE 


16， 


6 


=C0 し OR 4 ： PRINT " DUST -MAN " 




し OCATE 




10 


： COLOR 3 ： PRINT 、、や 一し T ィ 3 ゥ'' 




し OCATE 


； 三:， 


12 


= CO し OR 6 ： PRINT "□" 




し OCATE 


"つ 


12 


： CO し OR 3 ： PRINT "シ "カンす ィ" 




し OCATE 


25, 


12 


： CO し OR 2 ： PRINT "力" メン ノ ソ 卜 , ' 





し OCATE 0， 16 = CO し OR 6 

PRINT "r— <«CAST 

FOR 1=1 TO 6 
PRINT "| 
NEXT 

PRINT " 1 



r— <«KEY 



ゲームの 説明 



- ワク を 表示 



CO し OR 7 
し OCATE 32， 17 
し OCATE 32 1 IS 
し OCATE 32， 19 
し OCATE 21， 20 
し OCATE 21， 21 
し OCATE 21， 22 



： PRINT 
： PRINT 
： PRINT 
： PRINT 
： PRINT 
： PRINT 



i i i i i i 



SYMBO し （:30*1ん2：1化 

SYMBOL (36*1 ん 21*: 三: 
SYMBO し （33*161 18*8 
SYMBO し （33*16， 2 1*8 



し OCATE 2， 18 
CO し OR 7 ： PRINT 
CO し OR 5 ： PRINT 



)CHR$(29> ，2 ふ 2 
,CHR$(:28) ，2 ふ 2 
,CHR$C30) ，2，1，2 
, CHR$C31) ，2» 1，2 



二一 操作 を 説明 



し OCATE 2， 20 
CO し OR 6 ： PRINT 
CO し OR 5 ： PRINT 

し OCATE 2， 22 
CO し OR 2 ： PRINT 

CO し OR 5 ： PRINT 



□ "5 



•DUSTMAN j 



ITS 



や ライ 



- 登場人物の 説明 



CO し OR 7 

し OCATE 5,24 ： PRINT PUSH ON し Y 匚 SI] KEY 



DUST -MAN 



61 



8600 
S610 
： 三る 20 
8630 
S640 
S650 
8660 
3670 
S6S0 
S690 
S700 
S710 
8720 
S730 
S740 
3750 
S760 
S770 
S7S0 
3790 
SS00 
8810 
8S20 



WHI し E INKEY$<>"5" 

LOCATE 14,0 = CO し OR 7 ： PRINT D$ 
R=RNDC1) 
WEND 



FOR 1=1 
BEEP 
NEXT 



TO 50 
1 :BEEP 



-入 力まち 



「ビー J 



し OCATE 0i24 

FOR 1=1 TO 25 

PRINT 
NEXT 

：：：：：：：：：： RETURN 



REM FORESIGHT PLANNING SECTION 



- 画面 をキ レイに しちや うんだ もん」 





10 月 24 日 （曰） はれ 

きょうは、 ほんと は 『おとも だち』 と、 どっかへ いきた かったん 
だけど、 『しんせきの おじさん』 がきた ので、 はるみ は 1 曰 じゅう 
『ぉラ ち』 にいました。 

ぁッ、 『おじさん』 つてい つても、 まだ わか < つて 『30 さい』 < 
らいで、 きょうは、 こどもの 『まゆみち やん』 を つれてき ました。 

ほんと、 ちっちゃな 『おんなのこ』 つて、 『さ < らん ぼ』 みたい 
で、 すつ ごぐ 『かわいい ァ』 の。 

はるみが、 『まゆみち やん、 いま、 いくつ？』 な あんて たす ねる 
と、 手 を 『バツァ』 て ひろげて 『いつつ〃』 つて、 かお を じ まっか i 
にして こたえ るんだ ちん。 かわいい ッ, 

それで、 『まゆみち やん』 と 『はるみのお へや』 で、 いっしょに 
あそん だんだ けど、 『まゆみち やん』 は 『外国へ きた ダ』 みたい に 
『ビヨン ビヨン』 はねまわつ ちゃうん です。 

それから、 『まゆみち やん』 が、 はるみに 『えほん』 を よんで ぐ 
れ ちゃうのに は、 ちょっと こまつち やい ました。 

もう、 おんな じの を、 10 回 も 20 回 も よんで ぐれち やうんだ もん、 
やん なつち やう 7 

それ も、 『しんけん ダ』 にきいて なぐつ ちゃい けな いんです。 

ちょっと、 『うわのそら』 できいて たりす ると、 『ちゃんと、 き 
いて なきや タメ 7』 つて、 おこられち やうんだ から …- 。 

ほんと、 ちっちゃな 『おんなのこ』 つて、 かわいい 7 

う 一ん、 はるみ も、 こんな かわいい 『いもうと』 ほしいな あ。 
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『ケビ イシ』 が 穴 を 掘って、 その 穴に 『エイリアンさん』 を 埋めて やっつ 

けち やうって いう 『古代史 S F ゲーム』 で 一す 。ナント 7 

二の ゲーム は、 今までの みたい に 『〇〇 掘り ア』 とかして 待って るよ り、 
追い かけて つて やっつけな いと ダメ なの。 

そんなと こ 力く、 ちょっぴり 『NOWZ/』 な ゲームで 一す ッ〃 

• あそび かた 

えと、 『ゲーム』 力く はじまつ ちゃうと 『エイリアンさん』 が 『平安京』 
にあら われて 写真 O みたくな つち やい ます。 それで、 につく き 『エイ リア 
ン さん』 を やっつけ ちゃうに は、 まず 『穴』 を 掘って、 その 穴に 『エイ リア 
ン さん』 が 落ちたら 『すばやく 7』 その 穴 を 埋めち やえばい いの。 

でも、 せっかく 『エイリアンさん』 が 落ちた のに 『そのまま、 ほ っぽつ 
といたり』 『ほかの エイリアン さんが 助けち やったり』 しちやう と、 『ェ 
イリ アンさん』 は 穴から はい あがって また 動きだし ちゃう, 恐怖〃 

それで、 『穴 を 掘りたい よお 一,』 つて 思ったら 『小文字の z 』 を 押せ 
ば 図 みたい に 『ポコ ポコ』 と 穴が 大きくな つて 『大文字の o』 になつ ち 
やえば 『完成.'』 で 一す。 やった あ, 

掘り かけの 『穴』 は 『エイリアンさん』 が 通れち やうから、 ちゃ あんと 
『大文字の 0』 になる まで、 ちゃ あんと 掘って ね。 

こうやって 掘った 穴に、 もしも 『エイリアンさん』 が 落っこち ちゃうと 
『ピッ /』 つて 音 を 出して く > つて PR I NT しちやう から、 すぐ そこ 
へ 行って 『穴』 を 埋めち やい ましょう。 

『穴』 を 埋めち やうに は 『小文字の X』 を 押せば 図 みたい に 『ドンド 
ン』 穴が 埋まって つち やって、 最後まで 埋めち やうと 『ビッ 7』 つて 『ェ 
イリ アンさん』 が 泣いて、 スコアに 点数が プラスされ るんで す。 

こうやって 『4 ヒキ』 の 『エイリアンさん』 を やっつけ ちゃうと 『1 面 
ク リア/』。 でも 『TIME』 が なくなつ ちゃったり、 『エイリアンさん』 
に 食べられち やったり すると 『GAME OVERj で 一す。 



HEIAN A し IEN 




G プログラム リ ス卜 



10 REM ************************ 
20 REM 

30 REM <H エー SPEAD ALIEN> 

40 REM *** 
50 REM *** 

60 REM *** HARUMI TAKAHABHI 
70 REM *** 
SO REM ******* 
9G REM 
1G0 DEFINT A~Z 

DIM AX (8：) iAY<8) iVX(8) »VYC8) ，M(:S) »D"/.<3) 
WIDTH 40,25 = CONSOLE 0,25 ，□，□ 



R E M 文 



11D 
120 
130 
i4G 
15G 
160 
170 
130 
190 
2GG 
210 
3G0 
31.D 
320 

330 
340 



CO し OR 7,0 "-PRINT CHR$(12) ； 



- 初期設定 



gosub saao 



H:0 

S-0 - C---6 

T-U :T1=60 :OVER=0 



- ゲームの 説明し ち * 



- 変数 を 設定 



REM 



CO し OR 7iG 
しェ NEC '3, 



SUB 



: PRINT CHR$( 12) ？ 
3 ト （32, 21)，" " i 2 i BF 



-画 面をキ レイに しょ う 



PRINTUSING "L:sSCORE#####] <HEIAN A し. IEN> |： ： MAX##### J " ？ S ； 



330 
360 
37G 
3S0 
390 
400 
410 
420 
430 
440 
450 
460 
470 
4S0 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 



LINEC 5, 3)- (:32，2i) ， "『 ，2，曰 

FOR 1-7 TO 27 STEP 5 
FOR J 二 5 TO 17 STEP 4 

LINE(IiJ)-<I+3»J+2) ，"■" 
NEXT 

NEXT 

FOR 1=1 TO 7 

R=INT(:RND(:1:)*2:) 

IF R^O THEN GOSUB 5000 
IF R=l THEN GOSUB 5100 

NEXT 



，BF 



- 迷路 を P R I N 



LOCATE "、 2 SCO し OR " 
PRINT "r"+STRING$(23 9 

FOR 1=3 TO 21 

し OCATE 4,1 = PRINT 
し OCATE 33 i 1 ： PRINT 

NEXT 



し OCATE A 
PRINT 



，22 



'+STRING$(:2: 三:， 



'I " 



-":)- 



- ワク を PR I HJf 
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HEIAN ALIEN 



600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 

-720 
730 
74D 
750 
760 
770 
775 
7SG 
7S5 
790 
800 
810 
320 

- S3G 
840 
85G 
S60 
370 
330 
39D 
900 
910 
920 
925 
930 
935 
940 
945 
950 
955 
960 
965 
970 
975 
980 
1000 
1005 
1010 
1015 
1020 
1030 
1040 
1050 
1060 
1070 



し OCATE 0,24 =C0 し OR 5 

PRINT "匸! :TIME "+STRING$(:31, ' '謹 
しェ NEC 7 ,24) -(37,24) , ,6 



C=C+1 :C1=0 

IF C=7 THEN C=A 



N の 数 を 決める / 



を 表示 



FOR 1=1 TO C 

FOR J=l TO 10 

BEEP 1 -BEEP □ 
NEXT 

F し AG:=0 
WH1 し E F し AG=G 



AX 




=6+INT 


:RND (: 1)*6)*5 


AY 




=4+INT 


iRND ( 1：)*5)*4 






二 0 ： VY 


： I .) 






-D 





N の 位置 を 決める. 



P^SCREENCAX < 
IF P-ASC C 



， AY (: I ) ) 

) THEN F し AG= 



WEND 

LOCATE AXCI) iAYCI.': 
CO し OR 5 ： PRINT ' 



FOR J =l TO ！) OG 
NEXT 



APR I N 



- 時間 ま ち 



NEXT 



F し AG 二 〇 
WHI し E F し AG=~-0 



X=6+INT(:RNDC1.)*6.)*5 
Y=4+INT CRNDC1)*5)*4 



P=SCREEN(:X，Y:) 

IF P=ASCC" " ) THEN F し AG=1 



WEND 
REM 

WHI し E OVER=0 



ケビ イシの 位置 を 決める 



I$=--1NKEV'$ ： VX=U s VY-0 
IF I$=CHR$C29 
IF I$=CHR*C2S 
IF I$=CHR*C30 
IF I$=CHR$C31 



VY-0 
















THEN 


vx=- 


-1 


:FX — 


1 


i: 

i-L 


： c$= 




THEN 


VX = 




sFX = 




1! 


:C$= 




THEN 


VY= - 




:FY= - 




:FX=0 


： c$= 




THEN 


VY= 




:FY= 




II 

X 




= "t" 



-E) をお した？ 
-S をお した？ 
-E をお した？ 
-Q] をお した？ 
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1100 P=SCREEN(:X+FX,Y+FY:) 
1110 ' 

1120 IF I$="z" THEN GOBUB 5200 
1130 IF I$="x" THEN GOSUB 5400 
i!40 ' 

1145 P=SCREEN C X+VX » Y+VY ：) 

!!：>□ IF POASCC" ") THEN GOSUB 5300 

1160 ' 

117。 COLOR 7 

113G LOCATE X,Y ： PRINT " " 
119G ' 

120D X:X- ト V'X 
1210 Y=Y+VY 
1220 

1230 LOCATE X . Y - PR IN".' CA> 
1240 •' 

1250 FOR 1:1 TO C 
1260 ' 

127D IF M(:I:)<0 THEN 1460 
1230 •' 

1290 IF h ( I ：) >□ 丁 HEN GOSUB 5900 -GO 丁 0 
1300 ' 

1310 IF C AX C I ) ~6 ) MOD 5=0 AND < AY C I > -A ) MOD 4=0 THEN GOSUB 6400 

1:520 ' 曲れ る 1 ? 

1330 CO し OR 5 

1340 LOCATE AX い I ) ，,AY (: ェ ） ： PRINT " 
1350 '• 

1360 AXCI ) ^AX(I)+VX(i:) 
1370 AY ( I ) -AY ( I :i +VY ( I ) 
1380 ; 

1390 P==SCREEN CAX ( 1 ':' i AY ( I ) ) 

1400 IF P-ASC("BU") THEN GOSUB 6600 :GOTO 1460 
1410 IF- P^ASCCO") THEN GOSUB 6700 :GOTO 1460 
1420 IF P 二: ASC(:C$ ) THEN OVER-1 
1.430 ; 

1440 し OCATE AX(i) ^AYCI) ： PRINT ' '鲁" 
1450 ' 
1460 NEXT 
147Q ' 
1 糊 T-T+l 

1490 IF T-300 THEN OVER- 
1500 ' 

1510 LOCATE INT(:T/lD)+7，2^ ""COLOR 1 ： PRINT " 翻 'つ 
1520 ' 

1530 T1=T1-'J. 

1^40 IF TKO THEN T1=0 
1550 ' 
1560 WEND 
1570 ' 

1580 IF 0VER=1 THEN GOSUB 7400 
1590 IF 0VER=2 THEN GOSUB 7000 ： GOTO 200 
1600 ' 

1610 ：：：： = ：：：：： GOTO ISO ： ： ： s : : : : : : 
1620 ' 

5000 REM - PRINT B し OCK SUB 1 - 

5010 ' 

5020 M= 1 1 + INT C RND C 1 ) *4 ) *5 



-A 



HEIAN A し IEN 



5030 
5040 

5060 
5070 
50S0 
5100 
c j>110 
5120 
5130 
51 AO 
5150 
5160 
5170 
5190 
5200 

5230 
5240 
5250 
5260 
5270 
^>280 
5290 
5300 
531C3 
5320 
5330 
5400 
5410 

5430 
5440 

5460 
5470 
54SD 
5490 
5500 
551D 
5520 
5530 
5600 
5610 
5620 
5630 
5640 
5650 
5660 
5670 
56S0 
569Q 
5700 
5710 
5720 
5730 



N= 5+INT(RNDCl)*4)*4 

しェ NECMiN) - (:M,N+2) , "H" ,3 
：：：：".：:：:: RETURN ：：：：：：： s s ： 
REM 

M=-- 7-^INT CRND C 
： 三: +INT(:RND (: 

LINE (: M ， N ) 一 (: M+3 ，！ M) ， "■" ， 3 

- ： ： s : : s : : : RETURN s ： ： ： s ： ： i 

REM 

D^INSTRC " • o oo " , CHR$(P) ) 
IF D::0 THEN RETURN 

BEEP 1 

l_OCA 丁ビ X + FX ? Y+FY = CO し OR 7 
PRINT hID$(" ■ oDOO" ^lm 1) 

BEEP G 



-穴 を ほる 



RETURN 



REM 



D^INSTRC M 00 Oo - " •»CHR$(P) ) 
IF D=0 THEN GOSUB 5600 

BEEP 1 



； RETURN 



LOCATE X+FX,Y+FY : CO し OR 7 
PRINT MID$C"Ooo • ",D,D 



BEE-P □ 



REM 



-穴 をう める 



RETURN 



D = INSTRC"XX*+. " ，CHR$(:P:) :) 
IF D=0 THEN RETURN 

BEEP 1 

LOCATE X+FX，Y+FY ： COLOR 2 

PRINT MID$("X*+. n + CHR*(255:) ，D， 1) 



BEEP 0 



N のおち た 穴 をう め； 



RETURN 
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5800 
58 10 
5320 
5S30 

5850 
5S60 
5900 
5910 
5920 
5930 
5940 
5950 
5960 
5970 
59: 三 :0 
5990 
6000 
6010 
6020 
6030 
60A0 
6050 
6060 

' 6070 
608D 
6090 
6100 

-6110 
6120 

>6130 
6140 

- 6150 
6160 

-6170 
6180 
6190 
6200 
6210 
6220 
6230 
6240 
6250 
6260 
6270 
62S0 
6290 
6300 
6310 
6320 
6330 
6340 
6400 
6410 
6440 
6450 
6460 



REM 

VX=Q 
VY=0 

：：：：：：：：：： RETURN ：：：：：：：：：： 

REM PEEK FAINT ALIEN SUB 一- 



^--SCREEN CAX CI) , AY ( I ) :) 

IF P-255 THEN GOSUB 6000 
IF P= 32 THEN M (. I ) --•=□ 



-7C を うめられた？ 
- 仲間に たすけられた？ 



RETURN 



REN 



GETS) (AX (I) -- 1 ， AY ( I :) ) — (: AX ':• ェ:) 十 1 » AY ( I :) :) ， D7. 



LOCATE AXCD-l^ AY(I) = CO し OR 
PRINT CHR$ (: INT CTl/ 10) +ASC <：. 



し. '一 



FOR 



=□ TO 10 



FOR N=0 TO 10 

BEEP 1 :BEEP 0 
NEXT 

FOR N=「J TO 1G 

BEEP 1 iBEEP 0 
NEXT 



NEXT 

S=S+ C INT ( T 1 / 10 ) + 1 ：) * !□□ 



スコア 



'° ラス 



LOCATE 7,0 SCO し OR 7 ： PRiNTUSING "#####" ； S 
M <：!：)=-! :T1=60 



C1=C1+1 

IF C1=C THEN 0VER=2 



PUTS C A X ( I ) - 1 , A Y C I ) ：) - C A X C I ) + 1 » AY (: ェ:） :） ， DX , 3 
し INEC 5， 3) -(32, 21：) , "1" ,2^B 

LOCATE AX CI) , AY ( I ) ： PRINT " " 

：：：：：：：：：： RETURN ：：：：：：：：：： 

REM - SET ALIEN MOVING SUB - 



全員 やっつけた あ？ 



F し A(5=0 
WHI し E F し AG=0 



HEIAN ALIEN 



6470 
64S0 
6490 
6500 
6510 
6520 
6530 
6540 
6550 
6560 
6570 
6600 
6610. 
6620 
6630 
6640 
6650 
6660 
6670 
6680 
6700 
6710 
6720 
6730 
6740 
6750 
676D 
6770 
67S0 
6790 
6800 
68 10 
7000 
7010 
•7020 
7030 
7040 
7050 
7060 
7Q7D 
7 ひ 三 :0 
7090 
7100 
7110 
7120 
7130 
7140 
7150 
7160 
7170 
7172 
7174 
7180 
7190 
7200 
7210 
7220 



R=INT(RND(1)*2:) 

IF R=0 THEN VX C I ) =INT C RND C 1 ) *2) *2- 
IF R=l THEN VY C I ) =INT ( RND ( 1 ：) *2) *2- 

P=SCREEN CAX (： I :) +VX (• I :) ， AY C.I :) +VY C I :) ) 
IF POASC (："■"：) THEN F し AG=1 



:VY(i:)=Q 
:VX (：!：)=□ 



WEND 



REM 



N の 動き を 決める ダ 



： RETURN ：：：：：：：：：= 

STOP THE A し IEN SUB 



AX(:I:)=AX(:I)— VX(I) 
AY(:I:)=AY(:I:)—VY(:I:) 



GOSUB 6400 



REM 



: RETURN ：：：：：：： 

FA しし A し IEN SUB 



FOR J=d 

BEEP 
NEXT 



TO 30 
1 :BEEP □ 



ビ、: 



MCI) =12 

LOCATE AX(I) ，AY(I) : CO い:) R 2 ： PRINT M X" 
： s s :::::: : RETURN ： ： ： ： ： s s ： ： ： 

REM PATTERN CLEAR SUB 

FOR I=T TO 300 

LOCATE INT C 1/ 10) +7 , 24 = CO し OR 4 ： PRINT "匪 



し OCATE 7，0 = CO し OR 

FOR J=l TO 3 

BEEP 1 :BEEP □ 
NEXT 



:PRINTUSING "#####" 5S 



残りの T I M E を 
スコアに ブラス 



NEXT 



FOR ] 
NEXT 



TO 



- 時間 まち 



LINEC 6^ "- (:31，20:) "，7，BF 

CO し OR 7 
し OCATE ん 6 ： PRINT " 國 

CO し OR 5 
し OCATE <b， 9 SPRINT " ァすタ 门， 



PATTERN C し EAR! 



一、 イアン キ s ゥ j 二 7 ラ フレタ'' 
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7230 
7240 
7250 
7260 
7270 
7280 
7300 
7320 
7330 
7400 
7410 
7420 
7440 
7450 
7460 
7430 
7490 
7500 
7510 
7520 
7530 
7540 
7550 
7560 
7570 
75S0 
7600 
7620 
7630 
76A0 
7650 
7660 
7670 
7680 
7690 
7710 
7720 
7730 
77A0 
7750 
7760 
7770 
7780 
7790 
8000 
SO 10 
8020 
S030 
S040 
3050 
8060 
3070 
S08D 
8090 
8100 
S110 
81 20 



LOCATE 6， 11 ： PRINT " r ALIEN」^ t、、 ン フ、、 ソ' リケチ ャィ 7 シタ 0 " i 
し OCATE 6,13 ： PRINT " テ、、 モ， r A しェ EN」 八， シ' リ： ：フ ォソ' ：ノテ チ'' 
LOCATE 61 15 ： PRINT "7-7.o タイ , 、 ン！！ " 



FOR 1=1 TO 5000 
NEXT 

IF S>H THEN H=S 
：：：：：：：：：： RETURN 



-時間 まち 



REM 

FOR 1=135 TO 127 STEP -1 
FOR J=l TO 20 

BEEP 1 :BEEP □ 
NEXT 



し OCATE X" 

NEXT 

CO し OR 4 
し OCATE 4, 7 
し OCATE 4, ： 三： 
し OCATE 4, 9 



： COLOR 7 = PRINT CHR$(: ェ:） 



-燔発 J 



: PRINT 
： PRINT 
: PRINT 



I H I I I I H h- 1 

i~i 1 I 1 I 1 J I 丄 L_l 



COLOR 7 

し OCATE 4,11 ： PRINT PUSH ONLY 匚 SI] KEY' ****** 

WHILE INKEY$<>"5" 

C=INTCRNDCi:)*7:) + l 

しェ NEC 5, 3)-(：32,21：) ， 



»C,B 



WEND 

FOR 1=1 TO 50 

BEEP 1 :BEEP □ 
NEXT 

し OCATE 0,24 

FOR 1=1 TO 25 

PRINT 
NEXT 

IF S>H THEN H=S 

にに にに に RETURN 



REM DEMONSTRATION SUB 



- キー入力 まち 



r ビー.' 



-画面 をキ レイ I 



し OCATE 7,0 
し OCATE 12,0 
し OCATE 7, 1 

し OCATE 0,3 

PRINT ： PRINT 

PRINT ： PRINT 

PRINT ： PRINT 

PRINT ： PRINT 

PRINT ： PRINT 

PRINT SPRINT 



： COLOR 1 SPRINT 
: CO し OR 7 ： PRINT 
: CO し OR 1 :PRINT 

： COLOR 5 
" ュノ 「GAME」 /、， 
"ラ， 「ケ t" イシ」 力" 
"ファ1 レ カン シ" ノ 



"/J'i+STRINGMI'S, ' 
" H エー SPEAD，A しェ EN 
STRINGS (25 , """：) 



'、イアン- +3 ゥ j 二 アラワ レタ 「AL.IEN_ 
—アナ」 ラ ホ' ソテ 1 7 '： パリ ケ チれゥ 'ソ テ. ィゥ 2 



" U ゥ シテ， r 、 イアン 千 3 ゥ」 二 ァラ 7し'タ r A しェ EN」 ラ t 、、一 ン 
"フ" リク チ ヤエ/)、、 r PATTERN C し EAR ！ ！」 

" テ、 、モ， r TinEOVER」 タハ r ラレ j し 卜， r/ ; 、、一 厶ォ 一/)、、 一」 



HEIAN ALIEN 



8140 
8150 
8160 
3170 
8180 
8190 
8200 
8210 
3220 
8230 
S240 
S250 
8260 
S270 
： 三 :2: 三 :0 
8290 
8300 
3310 
8320 
S330 
3340 
S350 
S360 
S380 
S390 
8410 
S420 
8430 
8440 
8450 

8470 
： 三' み :三:0 
Sf>00 
3510 
3520 
S530 
8540 
8550 
8560 
S570 
8580 
8590 
8610 
3620 
8640 
8660 
： 三る 70 
S6S0 
： 三: 690 
8700 
： 三: 720 
8730 
S7A0 
8750 
S760 
： 三: 770 







4 


： COLOR 


し 


： PRINT 


"GAME" 


L o^ATF 


， 




； COLOR 


2 


； PR ェ MT 


"VfT* ン牛 3 ゥ ,, 


し OCATE 


33， 




=C0 し OR 


3 


： PRINT 


"HEN" 


LOCATE 




6 


： CO し OR 




： PRINT 


" ケピ イシ" 


し OCATE 


15» 


6 


= CO し OR 


3 


: PRINT 


"7T" 


し OCATE 


26 1 


10 


： CO し OR 


3 


： PRINT 


"A しェ EN" 


し OCATE 


14， 


12 


SCO し OR 


H 


： PRINT 


"PATTERN CLEAR! ！ " 


し OCATE 


7， 


14 


=C0 し OR 


2 


： PRINT 


"TIMEOVER" 



-ゲームの 説明 



し OCATE 0, 16 SCO し OR 6 

PRINT "「<<<CAST 

FOR 1=1 TO 6 
PRINT "| 
NEXT 

PRINT '" 



-«<KEY 



- ワク を 表示 



CO し OR 
し OCATE 
し OCATE 
し OCATE 
し OCATE 
し OCATE 
LOCATE 
し OCATE 
し OCATE 
SYMBO し 
SYMBOL 
SYMBO し 
SYMBO し 
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32, 17 ： 
32 i 13 ： 
32, 19 ： 
21， 20 ： 
21,21 ： 
21，22 ： 
22 に 1 ： 
25i21 ： 
(30*16, 
(36*16i 
(33*16, 
(33*16, 



PRINT 


" i — i " 








PRINT 










PRINT 


i i " 








PRINT 


" i ~ i 「 ~ i 


i — i r 


~ i r 


つ " 


PRINT 


"1 Z| | X| 








PRINT 










CO し OR 


2 ： PRINT 


"Z" 






CO し OR 


2 ： PRINT 


"X n 






21*8) 


, CHR$C29) 




2. 




21*8) 


，CHR$(:2: 三::） 


， 2 ， 1 


2 




18*8) 


, CHR$C30) 


»2, 1 






21*8) 


} CHR$C31) 


,2,1 


， 





- キー 操作 



し OCATE 3, 19 
CO し OR 7 ： PRINT " 5 
COLOR 7 =PRINT " 「々!=、、 イシ」'' 

し OCATE 3,21 
CO し OR 5 ： PRINT ' '鲁 "5 
CO し OR 7 ： PRINT " 「エイり アン」'' 



-登場人物 を 説明 



CO し OR 7 

し OCATE 5i24 ： PRINT PUSH ON し Y 匚 S コ KEY! ； 



H エー SPEAD，A しェ EN " 



WHILE INKEY$<>"s" 

D$=RIGHT$CD$, 15:)+L_EFT$(:[)$， 1:) 

し OCATE 12,0 : CO し OR 7 ： PRINT D$ 
R^RND CD 
WEND 



-入 力まち 



TO 50 
1 :BEEP 0 



FOR 1 = 
BEEP 
NEXT 

し OCATE 0,24 

FOR 1-1 TO 25 

PRINT 
NEXT 



ビー/ 



-画面 をキ レイに しちやう 



J 

RETURN 
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謹° 水道管と ねずみさん 

この 『ゲ一 厶』 は、 迷路みたい になつ ちゃって る 『水道管』 のなか を、 
『チュー チュー ねずみさん』 力く 『ヮ ナ』 に ひっかからな いように、 『チー 
ズ』 を 食べな がらく ぐり ぬけち やうって いう ゲームです。 

やっぱり 『リアルタイム' ゲーム』 つてい うと 『反射神経 を 競う 7』 つ 
ていう カンジ だから、 『もっと パズルみ たいの 作って みたい な あ』 つて 思 
つて 作つ ちゃった のが、 この 『水道管と ねずみさん』 なの。 

使う 『 ： 』 は m^JB^M だけ/ 

でも、 『あたま』 をよ 一く 働かせな いと、 うまくい かないんで 一す。 

• あそび かた 

ゲームが 始まつ ちゃうと、 まず 『ゲームの 厶 ッカシ さ,』 を 『マイコン 
くん』 がきいて くるから、 こたえて あげてね 7 (値が ちいさい ほうが 厶ッ 
力 シィん で 一す） 『ゲームの ム ッカシ さ』 を タイプす ると 写真 O みたくな 
つち やい ます。 『ゲーム 内容』 は、 『ねずみさん 〈 > 力く 『ヮ ナ』 く 〉 
に ひっかからな いように、 できるだけ たくさん 『チーズ』 ぐ-.〉 を 食べて 
出口へ でる つてい う ものです。 

この 『ねずみさん』 は、 つぎの 『4 つの ルール』 にしたがって 動きます。 

ルール 1 図 O みたい な 『分れ iij のとき ^^H9 を 押す と、 矢印の 方へ 
へまが ります。 だけど、 [20 みたく 矢印がない とダメ なの。 

ルール 2 『分れ i& をで たと き 『ねずみさん』 は 『分れ道に 入る まえに 動い 
てた 方向』 にうごきます （[3©)。 

ルール 3 ia© みたい な 『曲り itj だと、 『ねずみさん』 は その 『曲り ilj に 
そってう ごきます。 

ルール 4 これから 動く とこに 『チーズ』 が あると スコアに プラス 100 して、 
たまに 『ヮ ナ』 『チーズ』 を あたらしく 表示 ア 

ちょっと 『ム ッカシ ィ,』 けど、 みなさん は タイ ミ ングょ く き 
を 押して、 うまく 『ねずみさん』 力く 『チーズ を 食べち やう』 ように 『ヮナ 
'に ひっかかつ ちゃわない』 ようにし ちゃえば いいわけ。 カン タン, 



寺 写真 O ゲーム' スタート ア 寺 写真 0 EXAMPLE 

會 キー 操作 

鲁図 O 拿 図 0 秦図 €) 秦図 O 




G プログラム • リスト 



普 普 ******** 
*** #** 

*** <PIPE AND MOUSE> 
*** *** 
*** By *#* 

*** HARUMI TAKAHASHI 
*** *** 



=CONSO し E 0， 25， 0,0 
： PRINT CHR$(12.) ； 



- ゲームの 説明で 一す 



:X=0 :Y= 3 =V=1 :VX = 1 :VY=Q :PS=ASC ("♦"：) :QVER=0 

PRINT CRT SUB 

： PRINT CHR$C12) ； 



10 REM 
20 REM 
30 REM 
40 REM 
50 REM 
60 REM 
70 REM 
SO REM 
90 REM 

100 DEFINT A-Z 
110 DIM PC 39, 24.) 
120 WIDTH 40,25 
130 CO し OR 7i0 
140 ' 

150 GOSUB SODO 
160 ' 
170 H=0 
ISO ' 
190 S=0 
200 ' 

REM 
1010 ' 

1020 CO し OR 7,0 
1030 ' 

1040 F し AG=0 
1050 WHI し E F し AG=0 
1060 ' 

1070 LOCATE 4,23 s CO し OR 7 
10:30 INPUT "INPUT し EVE し 匚2 — 

1090 ' 

1100 IF し >1 AND し <7 THEN F し AG=1 
1110 ' 
1120 WEND 
1130 ' 

1140 し OCATE 0,24 
1150 FOR 1=1 TO 25 
1160 PRINT 
1170 NEXT 
1180 ' 

1190 PRINT CHR$C12.) ； 
1200 ' 

1210 PRINTUSING "[: SCORE 0] <PIPE&MOUSE> 
1220 ' 

1230 し INE( 1) 一 （37， 1), "■«',! 
1240 ， 

1250 し OCATE 0,2 s CO し OR 5 
1260 PRINT 
1270 PRINT 
1280 PRINT 
1290 PRINT 
1300 PRINT 
1310 PRINT 
1320 PRINT 



-R E M 文 



- 初期設定 



変数の 設定 



- ゲームの レベル 入力 



-画 面をキ レイに しちや' 



： 二 MAX ####IT5H 
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PIPE AND MOUSE 



1330 
1340 
135Q 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
14：30 
1490 
1500 
151D 
1520 
1530 
l r 540 
1550 
1560 
1570 
1575 

1590 
1600 

- 1610 
1620 
1630 
1640 
1650 
1655 
1660 
1670 
1680 
1690 
1700 
1710 

-1720 
1730 
1740 
1750 

1760 
1770 
1780 
1790 
1810 
1820 
1830 
1840 
1850 
I860 
1870 



PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 



I I I 、l I I 

h i \~ ひ ひ -\ h i h -i 

^ I ^-S I、 i ^-S I ^-S I ^ I 

I I I I 1 I 1 I 1 I 1 I -v 

I し n I 、 i i M I I 、 I i 

h i I- i h -I h i h i h ill 

へ I h I へ に」， I ら に" S i I I 



し INEC 0， 23: 卜 （37 ,23) , "■" ， 1 

し OCATE 0,24 ！: CO し OR 6 ： PRINTUSING "匚：： し EVE し し； 



画面 をつ く る 



し 0CATE 1， 5 = CO し OR 4 
LOCATE 1，19 ： CO し OR 3 



:PRINT "IN M 
： PRINT "OUT" 



FOR M=4 TO 16 STEP 6 
FOR N=5 TO 25 STEP 10 

P<:N，M )=3'1 

SYMBOL (•• 16 , M*f: ) , CHR* (: 3 1 :) , 2 ， 

NEXT 
NEXT 

FOR M=3 TO 20 STEP 6 

FOR N=12 TO 32 STEP 10 

P(:N，n:)=30 

SYMBOL 三:） ? CHR$(30:) 

NEXT 
NEXT 

RESTORE 

FOR 1=1 TO 12 

READ I も N，C 

PCMiN)=C 

SYMBO し （:M*16，N*£::) , CHR$CC ) ，2 に 



- 矢印 を P R I N 



NEXT 

DATA 36 ， 02 i 29， 
DATA 00»09i31i 
DATA 36i 14»29i 
DATA 01， 16,28， 



37， 03 ,31， 01 ,08， 28 
37, 09, 30 i 36, 10 i 29 
D0，15，30， 37»15，31 
37 , 21 i 30 , 36 i 22, 29 



- 矢印 を P R I 



FOR M 二 3 TO 21 STEP 6 
FOR N=3 TO 33 STEP 
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1SSQ 
1S90 
1900 
1910 
1920 
193D 
1940 
195C3 
I960 
1970 
1972 
1974 
1976 
1980 
199D 
2000 
2010 
-2012 
2014 
2020 
2025 
2030 
2040 
2050 
2060 
•2070 
20: 三: G 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2175 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
22: 三 :0 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
2370 



R=INT(RND(:1:) 长 し:） :C$=" " :C=2 
IF R=0 THEN C$= n D" ： C=6 
IF R=l THEN C$="4 U ： C=2 

LOCATE N,M = CO し OR C : PRINT C$ 

NEXT 
NEXT 

LOCATE 3, 3 SPRINT " " 
し OCATE 3,21 ： PRINT " " 



PRINT CHR$(7) ； 
REM 

WHILE OVER-0 
P=SCREEN(:X+VX , Y+VY) 



-ヮナ と チーズ を P R 



D=PCX+VX , Y+VY) 
IF P=ASC 
IF" P=ASC 
IF P=ASCC "H " 
IF P:-AS,C(" 卜' , 
IF D=2: 三:' THEN 
IF. D=29 THEN 



THEN VX- 
THEN ソ X 二-" 
OR D=31 THEN VY- 
OR D^30 THEN VY= - 
V- 1 ： VX- 
V=--- 'l s VX- 



VY=0 
VX=0 

VY=0 



: P=ASC 
:P=ASC 
:P=ASC 
:P=-ASC 
:P=ASC 
:P 二- ASC 



IF P-ASC (："--"：) THEN VX:=V ： VY^O sP-AGCr' " ：) s GOTO 2000 



I$^INKEY$ 
IF ェき " 1 

IF P=ASC( 
IF P=ASC( 
IF P=ASC( 



THEN GOSUB 5000 



一 〔スペース ） をお した？ 



THEN 0VER=2 
THEN OVER-1 
THEN GOSUB 5100 



LOCATE X,Y ： PRINT " " 
SYMBOL (:X*16,Y*£::) , CHR$CPS) ,2,1,7 

X=X+VX 
Y=Y+VY 



CO し OR " 

locate: x,y ： print 

PS=P 

BEEP 1 :BEEP □ 
WEND 



-ねずみさん をけ す 



- ねずみさん を P R I N 



ノブ ッ」 



IF 0VER=1 THEN GOSUB 6200 
IF 0VER=2 THEN GOSUB 6000 



- ゲーム 才一, 
-やった あ.' 



GOSUB 7000 



GOTO ISO ：::::::::: 




PIPE AND MOUSE 



23S0 
5000 
5010 
5020 
5030 
5040 
5050 
5060 
5070 
50S0 
5090 
5100 
51 '10 
う 120 
5130 
5140 
5150 
5160 
517(3 
5180 
5190 
5200 
5210 
5220 
5230 
5240 

5300 
5310 
5320 
5330 
5340 
5350 
5360 
5370 

5390 
5400 
5 A 10 
5420 

6000 
601D 
6020 
6030 
6040 
6050 
6060 
6070 
60S0 
6090 
6100 
6110 
6200 
6210 
6220 
6230 



REM 



MOUSE TURN SUB 



P1 = P(:X»Y+1:) 
P2=P(X,Y-1) 

IF Pl=31 THEN VY= 1 
IF P2=30 THEN VY=-1 



- 分かれ道に 入る 



： VX=0 :P=31 
:VX=0 - P=30 



REh 



RETURN ： ： ： ^ : 

； CORE ADD SUB 



FOR 1-1 TO 30 

BEEP i :B££P □ 
NEXT 



r ビ- 



B=--S+10G :P=ASC(" " ) :PS-ASCC M ") 

LOCATE 3i0 : CO し OR 7 5PRINTUSING "####" 
LOCATE 1IMT(S/100) + 10，24 : CO し OR 3 ： PRINT " 

GOSUB 5300 

： i - ： ；： ： ^ ^ RETURN - « - ^ - ^ i — 
REM 

R-INTC RMD(:1X2:) 

IF R=0 THEN RETURN 

R-INT (RND ( 1)*2) 

IF R=0 THEN C お'' ： C-6 
IF R=--l THEN Cn' 1 :C=2 

LOCATE INT (: RND (: 1 ：) *5) *5+8 ， INT (: RND (: 1 :) *A ) *6 十 3 
CO し OR C ： PRINT C$ 

：：：：：：：：-： RETURN "に！：： にに 

一一 MOUSE SUCCEED SUB 



i ァ • フ ラ： 



REN 

CO し OR 3 
し OCATE 6i 

CO し OR 7 
し OCATE 9， 
LOCATE 9, 

し OCATE 9,11 ： PRINT "： ^し ID 卜 力、、 t" 千 7 シタ 《» 

： ： 5 ： ： ： ： ： s ： RETURN ：：：：：：：：：： 

REM 

FOR I=ASC(: ,, 1" ) TO ASC (："_"：) STEP -1 



:PRINT 



7 ： PRINT " アナ タ i 
9 ： PRINT M 厶 'リカシ ィ 



YOU SUCCEED ！ 



. ：□ ノ 「八 チヤ メ チヤ 二'' 
- MAZE j カラ タ" シ， リ ,, 
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62A0 
6250 
6260 
6270 
6280 
6290 
6300 
6310 
6320 
6330 
6340 
6350 
6360 
6370 
63S0 
6400 
6410 
7000 
7010 
7020 
7040 
7050 
7070 
7080 
7090 
7110 
7120 
7130 
7150 

-7160 
7170 

-7190 
7200 
7210 
7220 
7230 
7240 
7250 
7260 
7280 
7290 
S000 
8010 
3020 
8030 
8040 

S060 
S070 
S080 
8090 
SI DO 
SI 10 
8120 
SI 30 
814D 
S150 



FOR J=1 

BEEP 
NEXT 



TO 20 
1 =BEEP 0 



し OCATE X,Y 

NEXT 

CO し OR 4 
し OCATE 4^ 7 
し OCATE ら' 
し OCATE 4? 9 



！: CO し OR 7 ： PRINT CHR$(:I:) 



爆発/ 



： PRINT 
： PRINT 
： PRINT 



CO し OR 
し OCATE え 



11 ： PRINT 
； ： RETURN : 



I I I I T~I m 1 I 1 T TT 1 1 1 

I i h— i I I I i H I II I H hT^ 

I 1 上 J_JL 1_J J_J —— I I 1 I —— I J —— I 上 |_J 



PUSH ONLY 匚 SU KEY ！ " 



REM 



WAIT INPUT KEY SUB 



WHI し E INKEY$<>"5" 
C=INT(RND(:1)"M"7:) + 1 
しェ NEC 2, r 3)-- (35, 13) 

WEND 



- 一入 力まち 



FOR ェ= 
BEEP 1 
FOR ,1 = 1 
NEXT 
BEEP □ 
FOR J=l 
NEXT 

NEXT 



TO 1G0 
TO 

TO 



-力 クン I 



し OCATE 0,24 

FOR 1=1 TO 25 

PRINT 
NEXT 

IF S>H THEN H=S 
にに：： にに RETURN 



- 画面 をキ レイに, 



、イス コア を 登録 7 



REM 



DEMONBTRAION SUB 



し OCATE 8i0 
し OCATE 13,0 
し OCATE E: , i ： 

し OCATE 0,3 
PRINT SPRINT 



PRINT 
PRINT 
PRINT 
PRINT 

PRINT 

し OCATE 
し OCATE 



： PRINT 
-PRINT 
： PRINT 
: PRINT 
: PRINT 



: COLOR 1 :PRINT ，'/jr+STRING$(:20， "■":) + ' 'に/'' 
: CO し OR 7 ： PRINT " PIPE & MOUSE " 
-CO し OR 1 SPRINT STRINGS (23, "一":） 

に0 し OR 5 

" コノ 「 GAME j 八， r MAZE」 ミ や、' 二 7 力、、 リフ :?：• ソタ 「 スィ 
" 卜、、 ゥ カン」 ラ， r ネス" 5 サン」 力、、 「 ヮす」 二 亡':/' リカ カラ： r 
"ィ3 ゥ 二 「チ 一: T、」<0> ， マ、" ナカ、、 ラ フフ、' ノヌグ チャウ': ノ ティ ゥ 

、、で ー厶 亍、、 7.o カン タン ！ ！ 

•> チ 3'： ノ卜 メス "ラシィ 「REA し 一 TIME T シコゥ GAME」， 5: すサ 
"ン， P し AY シ テミ テ 末! 



4 



15, 



= CO し OR 6 ： PRINT "GANE" 
=C0 し OR 3 ： PRINT "MAZE" 
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PIPE AND MOUSE 



8160 
三: 170 
3 ISO 
5190 
ョ :200 
S210 
3220 
3230 
3240 
三: 250 
3260 
3270 
E:2S0 
三: 290 
E:300 
3310 
三: 320 
3330 

三:： 350 
336G 
三:; 370 
S3Sa 
3400 
341D 
3420 
5：430 
3440 
3460 
3470 
3480 

三; 5 10 
三: 520 
3530 
3540 

3560 
三: 570 
3590 
8600 
8610 
8620 
8640 
S650 
S660 
8670 

ン S6S0 
8690 

- 8700 
8710 
S72Q 

- S730 
S740 

- S750 
8760 
3770 



し OCATE 


37， 




=C0 し OR 


•2 


： PRINT 


" スィ " 


し OCATE 




6 


： CO し OR 


3 


： PRINT 


" 卜" ゥ カン'' 


し OCATE 


11， 


6 


： CO し OR 


2 


SPRINT 


"ネ ス、、 5 サン'' 


し OCATE 


23， 


6 


： CO し OR 


4 


： PRINT 


"IT" 


し OCATE 


27, 


6 


！: CO し OR 




： PRINT 




LOCATE 




： 三： 


に 0 し OR 




： PRINT 


I' チーフ、、 " 


し OCATE 


13, 


8 


： CO し OR 


6 


： PRINT 


"□" 


し OCATE 


13， 


12 


=C0 し OR 




： PRINT 


し 一 TIME 



yDO GAME' 



ゲームの 説明 



し OCATE 16 = CO し OR 6 

PRINT "r-«<CAST ~~ 

FOR 1=1 TO 6 
PRINT M | 
NEXT 

PRINT 



r~<«KEY 



CO し OR 7 
し OCATE 32， 17 
し OCATE 32, 18 
し OCATE 32， 19 
し OCATE 21， 20 
LOCATE 21， 21 
し OCATE 21,22： 
し OCATE 22,21 



： PRINT " r 

'.PRINT "| 

： PRINT " L 

： PRINT " r 

■•PRINT " I 

： PRINT 1,1 

: CO し OR 2 



SPACEI 



I； — ^ i 1 



し OCATE 
CO し OR 4 : 
CO し OR 7 : 

LOCATE 
CO し OR 6 ： 
CO し OR 7 ： 

し OCATE 
CO し OR 2 ： 
CO し OR 7 : 



2， IE: 
PRINT 
PRINT 
2i20 
PRINT- 
PRINT 
2,22 
PRINT 
PRINT 



: PRINT "SPACE" 



"ネス" S サン」 



ワク を P R I N 



- 操作の 説明 



- 登場人物 を 説明 



CO し OR 7 

し OCATE 5,24 ：： PRINT PUSH ON し Y IISII KEY 



D$=" PIPE & MOUSE 
WHI し E INKEY$<>"5 M 



D$=RIGHT$(:D$, 13:)+ し EFT$(:[)$, 1) 

し OCATE 13,0 = CO し OR 7 ： PRINT D$ 
R=RND(1) 



WEND 

FOR 1=1 

BEEP 
NEXT 



'-— 入力 まち 



TO 50 
i :BEEP 0 



し OCATE 0,24 

FOR 1-1 TO 25 

PRINT 
NEXT 



-画面 をキ レイに しちやう 



RETURN 



81 



11 いな liOD しろう さき 

みなさん、 『いなばの しろう さぎ』 つて 知って るか しら？ 
ほら、 童話に あつたで しょ。 

はるみ もね、 『ちっちゃ いころ』 に 絵本 かなに かで 読んだ 覚え あるの。 

たし 力、、 『うさぎさん』 力く 『サ メ』 を だまして 『むこう 岸』 へ わたろう 
とす るんだ けど 『失敗し ちゃう ,』 、 そんな ，おはなし』 だつ たん じゃあ 
ないか しら？ はっき り しらない けど •••••• 。 

そこで、 はるみの 『ちっちゃ いころ』 の 記憶 をた よりに 作つ ちゃった の 
力く、 二の 『いなばの しろう さぎ』 ゲーム なんで 一す 7 すごい〃 

ゲーム 内容 は、 サメの 背中 を わたって 『むこう 岸』 に 渡る ゲームです。 
『慎重/』 にわ たれば いいんだ けど、 どうしても あせつ ちゃって ダメ〃 

あの 『いなばの しろう さぎさん』 も、 この ゲームで 練習 すれば 『うまく 
渡れた 7』 かな あ？ 

• あそび かた 

え 一と RUN しちやう と 『画面』 に は 写真 O みたい に 『ゲームの 説明』 が 
PR I NT されち やうんで す。 

この 『ゲームの 説明』 をよ 一く 読んで から 『小文字の s 』 を タイプす る 

と、 ゲームが 始まって 写真 0 みたくな つち やい ます。 

『画面の まんなか』 でカヮ イク 『ピョ コピョ コア』 動いて いる 『サ メ』 
は 実は 図 O のように く①— ②— ③―④ — ©— ©— ⑤―④ —③— ②— ①〉 つ 
て 順番に 動いて るんで す。 ナン 卜/ 

それで、 『ひと』 が 乗れる の は④と © のとき だけで、 それ 以外のと きに 
乗る と 『ゲームオーバー,』 しちやい ます。 

こうやって、 じょうずに 『サ メ』 のうえ を 『ビヨン ビヨン』 とびうつつ 
て 『むこう 岸』 へいって ぐ]〉 を 『ぜんぶ 7』 とってくれば いいの。 

この ゲームの 『高 得点 をと る コッ』 は、 『サメ がどう 動く 力、』 よく 考え 
て、 タイミング よく 『ビヨン ビヨン/』 わたつ ちゃう こと で 一す〃 
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THE SHARK 



r ， 

一房 I 



□ 

馨糧 □ 

「▼， 

J^i a 囊 



ト 写真 o ゲームの 説明で 一す。 



卜 写真 @ う 一ん、 タイへ ンア 
キー 操作 



ほ 

REPLAY 
• 図 O 



乗れない 



a ■ b 

A 丄 

へ AAAA AAA AA 

：ぇ) 荣れ ない （、も) 乗れない 

AAAAA AAAAA A AAA/ 

⑥ 乗れない 



ほ) 乗れる 



AA 

あ 乗れる 



寺 写真 @ ぜんぶ 取うて きた. 




o プログラム 'リスト 



10 REM ************************ 
20 REM *** *** 
30 REM *** « THE SHARK » *** 
40 REM *** 
50 REM *** By *** 

60 REM *** HARUMI TAKAHASHI 
70 REM *** *** 
80 REM ************************ 
90 REM 

100 DIM NC6) »VC6) ,D1$(6) iD2$C6) ,XC5) 
WIDTH 40i25 s CONSOLE Ch25，0，0 
CO し OR 7，0 ."PRINT CHR$C12) ； 



-R E M 文 



110 
120 
130 
140 
150 
160 
170 
ISO 
190 
200 

>210 
220 

-230 
240 
250 
260 
270 
275 
2S0 
285 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 



- 初期設定 



H=0 



GOSUB SODO 



- ゲームの 説明 をす るんだ もん/ 



S=0 :C=6 
X=0 



=0 :OVER=0 



FOR 1 = '. 

M (: ェ :) = 
NEXT ' 

XCO>= 4 

D1$C0)= 
D1$C3)= 
D2$C0)= 
D2$C3:) = 

REM —— 

CO し OR 7 

CO し OR 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 



TO 4 



： X C 1 ) = 7 :XC2) = 13 :XC3:) = 19 :X(4 



'，眷 W 



:D1$(:1): 
:D1$C4)= 
:D2$C1)= 
:D2$<:4) = 



:D1$ 
:D1$ 
:D2$ 
:D2$ 



=25 :X(5)=31 



変数 を 設定 



PRINT CRT SUB 



，0 ： PRINT CHR$C12) ； 



H 



画面 をキ レイに しちやう ！ 



H 



I ド 1 V 

H 
I I 

H, 

I H^V 

H 

H 
H 
H 
H 



H 

H 
H 



H 



H 



H 



CO し OR 6 



■ r 力 タ カナの 口 j です 
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THE SHARK 



520 

530 

540 

550 

560 

570 

5S0 

590 

600 

610 

620 

630 

Hi 

640 

650 

660 

670 

680 

690 

70D 

♦710 

-720 
730 
740 
750 
1000 
1010 

> 1020 
1030 
i040 
1050 
'.1060 
1070 
1 ひ 三 :0 

' 1090 
1100 
1120 
1130 
1140 

- 1150 
1160 

- 1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
5000 
5010 
5020 
5030 
5040 
5050 
5060 



PRINT 
PRINT 

CO し OR 2 
PRINT 
PRINT "W 
PRINT : PRINT 

CO し OR 5 
PRINT " A 
PRINT 



， 



i • H 醐 H 



CO し OR 7 
PRINTUSING 



：： SCORE 



SHARK 



:MAX #### コ'' iE35 



しェ NEC 7, IS) -(31, 18) 
LINEC35, li)-C35, 16) 、 

GOSUB 5000 



'口'' ふ 

し 



つ 皮 を P R I NT 
-ポ イン 卜 を P R 



「カタ カナの 口. 3 で 一す J 
—ひと を PR I NT, 



FOR I-i TO 1000 
NEXT 



PRINT CHR*(7) ； ' 

REM MAIN LOOP 

WHI し E 0VER=0 



- 時間 まち 



I$=INKEY$ s VX=Q 

.IF !$<>" " THEN GOSUB 5000 



IF X>0 AND X<5 THEN GOSUB 6500 

FOR 1=1 TO 4 

IF MCI) =3 THEN GOSUB 6100 
IF MCD03 THEN GOSUB 6200 

NEXT 

WEND 

IF 0VER=1 THEN GOSUB 6600 ~ 一 
IF 0VER=2 THEN GOSUB 5800 — 

GOSUB 7000 — 



-なに か キー を 押した？ 
-おぼれる か を 調べる ； 

-サメ を 動かす 



ひと を おぼれさせる 
• ひと を 飛ばす 



REM 



： GOTO 180 ：：：：：：：： 

PRINT THE MAN SUB 



ゲーム 才- 



IF I$=CHR*C29:) AND X>0 THEN VX=-1 
IF I*=CHR*C2S:) AND X<5 THEN VX= 1 



-0 をお した？ 
•EH をお した？ 



FOR 1=1 
BEEP 



TO 20 
1 sBEEP 0 



：ビ一 
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L-5070 
5080 
5090 
5100 
5110 
5120 
5130 
5140 
5150 
5160 
5170 
51:30 
5190 
520D 
5210 
5220 

5240 
5250 
5260 
5300 
5310 
5320 
5330 

•5360 
5370 
- 5330 
5390 
5400 
5410 
- 5420 
5A30 

5450 
5460 
5470 
5430 
5490 
5500 
5510 
5520 
5530 
5540 

5560 
5570 
5580 
5590 
5600 
5610 
5620 
5630 
5640 
5650 
5660 



NEXT 

し OCATE XCX)+1, 13 
し OCATE X(X) i 14 
し OCATE X ( X ：) ？ 15 
LOCATE X(X)+1, 16 

X=X+VX 

CO し OR 7 
LOCATE XCX:) + 1, 13 
LOCATE X(:X) i 14 
し OCATE X ( X ) ？ 15 
LOCATE X(X)+1 ? 16 

IF X=5 AND F=0 
IF X 二- 0 AND F=l 



： PRINT 
： PRINT 
： PRINT 
SPRINT 



： PRINT 
： PRINT 
： PRINT 
= PRINT 



- ひと をけ す 



暑鲁ー 



- ひと を P R 



THEN GOSUB 5300 
THEN GOSUB 5500 



- 向う 岸へ わたった の？ 
- もどって きたの？ 



： s ： ： ： ： ： ： ： ： RETURN ： ： i ： ： ： ： ： ： ： 

REM TAKE UP POINT SUB 

LOCATE 35, 17 - C ： PRINT " " — 

FOR 1=30 TO □ STEP -1 

FQR J=l TO ェ 

BEEP 1 
NEXT 



-ポィ : 



を 1 つと る 



FOR J = 'l TO 

BEEP 0 
NEXT 



1 ~~ NEXT 



- サゥン ド 



REM 



i RETURN ：：：：：： 

SCORE ADD SUB 



S=S+1000 :C=C-1 :F=0 

し OCATE 3, 11+C SCO し OR 3 ： PRINT "□" 

LOCATE 10,24 ■■ CO し OR 7 ： PRINTUSING 5S5 



、コア を フラ: 



IF S=6000 THEN 0VER=2 

し OCATE 4» 12 SCO し OR 3 ： PRINT "3 力': ノタ" 

FOR 1=1 TO 10 

BEEP 1 

し OCATE 4, 15 SCO し OR 7 



• 全部と つたの？ 



IF 
IF 



MOD 2 =0 THEN PRINT 
MOD 2 =1 THEN PRINT 



r-Wi 
し ▼」 



- 手をパ タパ タ する 
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THE SHARK 



56S0 
5690 
5700 

-5710 
5720 
5730 
574D 
5750 
5760 
57 70 
!>7S0 
5SGG 
5310 

う: 320 
5S3G 

- 5840 
5850 

5870 
5SSQ 
5:390 
590D 
5910 
5920 
5930 
5940 

5960 
う 970 
5980 
5990 
6000 
6030 
6040 
6100 
6110 
6120 
6130 
6140 
6150 
6160 
6170 
6180 
6200 
6210 
6220 
6230 
6240 
6250 
6260 
6270 
6280 
6300 
6310 
6320 
6330 
6340 



BEEP 0 

FOR J=l TO 100 
NEXT 

NEXT 

し OCATE 4, 12 SPRINT " " 
：：：：：：：：：： RETURN ：：：：：=：：：： 

REM JUMPING THE hAN SUB —— 



FOR 1=1 

BEEP 
NEXT 



TO 20 
i :BE£P 0 



一 ビ- 



FOR Y=12 TO -4 STEP — i 
CO し OR 7 

LOCATE *CY>-1) '： PRINT 

し OCATE 4i-(Y+i:)*(Y>-2) ： PRINT 'に— 鲁書ー 
LOCATE 4 T -(Y+2>*(Y>-3) ： PRINT Wn 
CO し OR 2 

し OCATE 4 , - C Y+3 ) * C Y>-4 ) ： PRINT " W 
LOCATE 5? — (:Y+^ :)•«■(: Y> —ろ:） SPRINT " ' 

FOR 1=1 TO Y*100 
NEXT 

NEXT 

：：：：：：：：：： RETURN ：：：：：：：：：： 

REM MOVE SET SHARK SUB 

R=lNTCRND(i:)*10'.) 

IF ROO THEN RETURN 



- ジャンプ, 



GOSUB 6300 



-サメ を 動かす 



REM 



： RETURN ： ： ： ： ： s s s ： s 

MOVE SET SHARK SUB 



R=INTCRNDC1)*4:) 

IF ROO THEN RETURN 



GOSUB 6300 



-サメ を 動かす 



REM 



： RETURN ： ： に： にに = 

MOVE THE SHARK SUB 



MCI)=MCI)+VCI) 

IF M C I ) =□ THEN V ( I ) = 1 
IF MCI) =5 THEN VCI)=~1 



-サメ の 動き かた を 決めち やう 
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6350 
6360 
6370 
63S0 
6390 
6400 
6410 
6500 
6510 
6520 
6530 
6540 
6550 
660D 
6610 
6620 
6630 
6640 
6650 
6660 
6670 
6630 
6690 
6700 
6710 
6720 
6730 
6740 
6750 
6760 
6770 
6780 
6790 
6S00 
68 10 
6320 
6830 
6840 
6S5Q 
6860 
6870 
6: 三: SO 
6890 
6900 
6930 
6940 
6950 
6955 
6960 
6965 
6970 
6975 
6980 
6985 
6990 
6995 
6996 



D=S+CI-1)*6 

し OCATE D+2i 16 
し OCATE D ，17 

：：：：：：：：：： RETURN 



-PRINT D1$(:M(I:)) 
: PRINT D2$(M(i:) ：) 



-サメ を 表示 



REM SCAN GAME OVER SUB 

IF MCX)<>3 AND M (： X :) Oh THEN 0VER=1 
：：：：：：：：：： RETURN ：：：：：：：：：： 



- おぼれる？ 



REM 



- 一一 DR0WNNING MAN SUB 



CO し OR 6 



LOCATE 
し 0CATE 
し 0CATE 
し 0CATE 
し 0CATE 



XCX) i 13 
XCX!) ? 14 
X(:X: い 15 
X(:X) ， 16 
X C X ：) ， 17 



: PRINT 
： PRINT 
： PRINT 
: PRINT 
■■PRINT 



'HE し P 
' ▲ 
'—鲁 鲁ー 
'しず 



GOSUB 6950 

CO し OR 5 
し OCATE XCX) ? 14 
LOCATE X(:X) » 15 
し OCATE XCX) , 16 
し OCATE XCX) , 17 

GOSUB 6950 

CO し OR 4 
し OCATE XCX) ， 15 
LOCATE XCX) ^ 16 
LOCATE XCX) , 17 

GOSUB 695Q 

CO し OR 3 
し OCATE XCX:) ， 16 
し OCATE XCX) , 17 

GOSUB 6950 

CO し OR 2 
し OCATE XCX) ， 17 ： PRINT " 

：：：：：：：：：： RETURN : 

REM BEEP SOUND SUB 



： PRINT 
： PRINT 
： PRINT 
: PRINT 



： PRINT 
SPRINT 
： PRINT 



： PRINT 
： PRINT 



―鲁鲁 



- おぼれる ？ 



FOR 1=1 
BEEP 
NEXT 

FOR 1=1 
NEXT 



TO 30 
1 :BEEP □ 



TO 1000 



-時間 まち 



RETURN 



THE SHARK 



700D 
7010 
7020 
7030 
7040 
7050 
7060 
7070 
7 ひ 三: 0 
7090 
^ 710D 
7110 
7120 
•7130 
7140 
7150 
7160 
7170 
7 ISO 
7190 
7200 
8000 
SOiO 
8020 
3030 
S04Q 
8050 
S060 
： 三: 070 
8080 
8090 
S1D0 
8110 
8120 
S130 
8140 
8150 
8160 
8170 
8 ISO 
S190 
S200 
3210 
S220 
S230 
S240 
S250 
8270 
- 8280 
8290 
8300 
8310 
8320 
8330 
8340 
8350 
8360 



REM 



GAME OVER SUB 



CO し OR 6 

し OCATE 5» 7 =PRINT 

し OCATE 5 ， S SPRINT 

LOCATE 5， 9 ： PRINT 

CO し OR 7 

し OCATE 5,11 SPRINT 

WHI し E INKEY$<>"s" 



I i I— I I I II H 
i i 丄 i_i 」_j — 



I M I H K- 1 
i i i i j — i 丄 l_i 



PUSH ONLY 匚 SH KEY ！ 



C=INT(RND(1)*7:) + 1 

し INEC :5, 5) -C36, 13) i "i'SCB 

WEND 

IF S>H THEN H:S 



-入 力まち 



RETURN 



REM ― - -- DEMONSTRATION SUB 

LOCATE S,,0 s COLOR 1 : PRINT "/^''-i-STRING^ (: 19 , " 黼' 
し OCATE 14 = CO し OR 7 ： PRINT " THE -SHARK " 
LOCATE ： 三い 1 : CO し OR 1 ： PRINT STRINGS (: 22 い' 一 , '：） 



"r/ 



LOCATE 0,3 -CO し OR 5 

PRINT SPRINT " S. す サン， r ')'t7V、 ノ シ ロウ サ 千、、 j ツ t シ'' ノ' ソ t ルカ シ ラ 7 

PRINT SPRINT " 八 j し S 八， チ': ノ' リ チヤ ィコロ 「ェ 市：; ノ _» 力 T 二 力 テ " —3：； ノタ、 、ォ； n" 

PRINT ： PRINT "ェ 力、、 ァ 1 し ノ 0 r ゥサ千 、、サン」 力、、 r サメ」 ラ タ" 7シテ r 厶：] ゥ 千、、 

PRINT ： PRINT '•、 ^ タ 0ゥ 卜：^ しタ" ケ 卜、、 r シ 'ソ八 "イシ チャウ」: ■ ソンす >\Ty 

PRINT ： PRINT "タ タン シ" ャ す イカ シラ ？ 八'：/ チリ シ丁ィ な 卜"" ■ ■ ■ 

PRINT ： PRINT " ：] ノ r .f ァ 八、、 ノ yd ゥ 1 ; 千"」 ラ r GAMEj 二 シチ ノ タワウ < 



し OCATE 


： 三:， 




！: CO し OR 




： PRINT 


"••、'"•、、、 ノ 


し OCATE 


18 1 


6 


=C0 し OR 


6 


二 PRINT 


" エホ ン" 


し OCATE 


9, 




： CO し OR 


3 


=PRINT 


"ゥ サ宁" サン 


し OCATE 


21， 




= CO し OR 




:PRINT 


" サメ" 


し OCATE 


34, 




： CO し OR 


6 


: PRINT 


"厶 n ゥ 午" " 


LOCATE 


0， 


10 


= CO し OR 


6 


： PRINT 




し OCATE 


5, 


14 


=C0 し OR 


3 


： PRINT 


"化、" ノ 


し OCATE 


23, 


14 


： CO し OR 


つ' 


： PRINT 


"GAME" 



し OCATE □? 16 = CO し OR 6 

PRINT "r— «<CAST 

FOR 1=1 TO 6 
PRINT "I 
NEXT 

PRINT 



-«<KEY 



ゲームの 説明 
— ワク を 表示 



CO し OR 7 
し OCATE 32 i 17 
し OCATE 32,13 
し OCATE 32 i 19 
し OCATE 21,20 
し OCATE 21， 21 



： PRINT 
： PRINT 
SPRINT 
： PRINT 
SPRINT 



ニー 操作 を 説明 
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S370 
S380 
S390 
8400 
8410 
S420 
S430 
8440 
S450 
3460 
8470 
S4S0 
S49D 
S500 

8520 
8530 

、 S550 
8560 
： 三: 570 
S58D 
： 三: 590 
3600 
86 10 
3620 
S63Q 
8640 
S650 
S66G 
8670 
S680 
： 三る 90 
8700 
S710 
3720 
3730 
S740 
S750 



し 0CATE 21,22： ： PRINT 



I I I — I I — I 



SYMBOL (:30长16に21»£::) iCHR$(29) ， 2 ， 1 ， 2 
SYMBOL (36*16,21*8) , CHR$C2S) ，2 に， 2 



CO し OR 7 
LOCATE 4, IS: 
LOCATE 4,19 
し OCATE 4»20 
し OCATE 4i21 

CO し OR 2 
し OCATE 4,22 

CO し OR 7 
し OCATE 5i24 



SPRINT 
: PRINT 
： PRINT 
： PRINT 

： PRINT 



ー鲁 

r r 卜- 



1 鲁き J 1 ' 

「サメ j" 



- 登場人物 を 説明 



PRINT 
THE -SHARK " 



PUSH ONLY 匸 SH KEY 



WHI し E INKEY$<>"s" 

D$=RIGHT$(:D$， 10:)+ し EFT$(:D$， i) 
し OCATE 14,0 ： COLOR 7 ： PRINT D$' 
R=RNDC1) 



WEND 

FOR 1=1 
BEEP 
NEXT 



-入 力まち 



TO 5D 
I. :BE£P □ 



し OCATE 0,24 

FOR 1=1 TO 25 

PRINT 
NEXT 



- 画面 をキ レイに しちやう 



RETURN 



REM 
REM 
REM 



FORESIGHT PLANNING SECTION 




10 月 25 曰 （月） はれ 

う 一ん、 きょうは また 『中間 テス 卜』 でした あ Z 
ちょっと 『つかれち やった/』 けど、 でも 『午前中』 しか 『おべ 
ん きょう』 しなぐ ていいから、 ラ クチンで 一す。 

そういえば、 ちかごろ 『おんなのこ』 の 『制服の ス カー 卜』 が、 

『みじか < なって る/』 のに 気がつき まし 

えと、 はるみの 『がっこう』 もそう だつ たんだけ ど、 ちょっと ま 
えまで 『ス カー 卜 をな がぐ する』 のが はやって たでし よ。 

ところが、 最近 は 『かみのけ』 をす こし 『ながめ』 にしち やって、 

『ス カー 卜』 を 『ひざつ こぞう』 < らいに して 『八ィ ソックス』 を 
はぐの が はやって きて るの。 

やっぱり、 『ス カー 卜が なが 一い . r 』 のって 『やぼった ぐって』 

『ぐら 一い』 カンジし ちゃう もん〃 

それで、 もう 『クラスの 3 分の 1』 < らいの 『おんなのこ』 がそ 
うなつ ちゃって るんで す f 

ぁッ、 ちちろん、 『ミー 八 一』 な はるみの 『ス カー 卜』 は、 いつ 
のまに か 『ひざつ こぞう』 < らいに なつち やって ました。 

でも 『ス カー 卜』 がみ じか <な つち やうと、 なんか 『ゥキ ゥキ』 
しちやって 『ビヨン ビヨン』 はねまわつ ちゃい ます ア 
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11 キング. コンク Jl, 

あの 『ドンキー • コ ング』 が 『FM くん』 でも PLAY できち やう〃 
もう、 これ は、 はっきり いって 『画期的,』 で 一す， 
みなさん は 知って ると 思う けど、 この 『ゲーム』 は、 穴の あいち やって 
る 『ベル 卜コン ベア』 を 穴に おつ 二ち ないように 『ジャンプ/』 してよ け 
て、 『キング コ ング』 にっか まっちゃ つてる 『おも 臣 さま』 を 助ける つてい 
う 『大 スぺク タル 冒険 ロマン s 「ゲーム』 です。 す、 すごい/ 
この ゲーム を あそばずに 『GAMEj は 語れない/? 

| あそび かた 

えと、 RUN しちやう と 『画面』 に は 写真 O みたい に 『ゲームの 説明』 
が PR I NT され ま 一す ッ f 

この 『ゲームの 説明』 をよ く 読んで から 『小文字の s 』 を タイプす ると 

ゲームが 始まって、 写真 @ みたくな るんで す。 

『画面』 の 『みぎした』 にいる し） は 『ひと』 、 『いちばん うえ』 で 
『キング コ ング』 にっか まっちゃ つてる ぐ 口〉 は 『お 姫 さま』 、 動いて る 
<mm^m> は 『ベル 卜コン ベア』 です。 
さて、 ゲームが 始まる と、 『ベルト コン ベア』 力く 『みぎ』 に 動いて く か 

ら、 その上 を はしって ぐ：〉 のと こまで いくと 『2 階に のぼる』 から、 こ 

んどは 『2 階』 に チャレンジ〃 

こうやって、 どんどん 上に 昇って 『お 姫 さま』 をた すけち やえばい いの。 
でも、 『ベルト コン ベア』 に は 『穴が あいてる,』 から、 穴に おっこち 

ちゃわな いように 『穴に おちる 直前 ア』 に ジャンプして よけて ね。 

もしも この 穴に おっこち ちゃうと 『ゲームオーバー〃』 になつ ちゃう 尸 

► プログラム を 打ち込む 時の 注意 

え 一と、 『200 行から 220 行まで』 の くに〉 は 置 d:«i，5lg 鷗 を 押しな が 
ら B を 押して、 く 〉 は MrfilJgl を 押しながら Q を 押せば いい 
ん です。 『400 行』 『440 行』 『620 行』 も MrtilslBl を 押しながら B 
を 押して タイプす るんで す。 
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KING KONG Jr. 




卜 写真 o ゲ、 ゲームの 説明で 一-' 



写真 0 ゲーム • スタート ア 
• キー 操作 



REPLAY 




a ■ b 



スペース 



ジャンプ 



ト 写真 @ 1 階の ぼつち やった よ 
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10 

20 
30 
40 
50 
60 
70 
SO 
90 
100 
110 
120 
130 
140 
150 
160 
170 
ISO 
190 
200 
205 
210 
215 
220 
225 
230 
235 
240 
245 
250 
270 
2: 三 :0 
290 
300 
310 
320 
330 
340 
350 
360 
370 
3S0 
390 
400 
420 
425 
430 
440 
450 
460 
470 
480 
490 



REM ************************ 
REM *** **# 

REM *** < KING KONG Jr > 
REM *** *** 
REM *** By 
REM *** HARUMI TAKAHASHI *** 
REM 

REM 

WIDTH 40 , 25 = CONSO し E 0,25 
CO し OR 7,0 SPRINT CHR$(12) 

H=0 



，0，0"L 

2); J 



-R E M 文 



- 初期設定 



GOSUB SOOO 



- ゲームの 説明 を 表示し ちゃう ？ 



S=0 ： 
DX=3 

D$(0)= 
D*C1>= 
D$C2)= 

d*ca:) = 

M$C2 
m (: 1 
M$CO 



C=4 :X=36 sY=21 ： Q=0 :C$=" 
:DY=22 :DV=1 :G=1 :OVER=0 




GOOD ' 
VERY GOOD' 
SP し ENDID ！ ' 
OH GOD ！ ' 



D$=CHR$C135:) 



- 変数 を 設定 



REM 



PRINT CRT BUB 



CO し OR 7,0 =PRINT CHR$C12) ； 



- 画面 をキ レイに しちやう 尺' 



し OCATE 0,24 
PRINTUSING 



SCORE 



03 <KINGK0NG2> 1I:MAX #tt###H' リ H; 



しェ NEC 0，23:) — (:3:三:,23:) 



CO し OR 3 
し OCATE 10， 



： PRINT STRING$(10, "■") 



CO し OR 2 
FOR 1=0 TO 4 

し OCATE Oi 1*4+6 
NEXT 



： PRINT 



'+D$CI)- 



i ン ベア を 表示 



し INEC17, 2) — （17， 5) 



F し AG=0 



- 階段 を P R I N 
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KING KONG Jr. 



FOR 1=6 TO IS STEP 4 

IF F し AG=0 THEN GOSUB 5000 ： GOTO 530 

IF F し AG=1 THEN GOSUB 5100 :GOTO 530 

NEXT - 



CO し OR 6 
し OCATE 0,1 
し OCATE 0,2 
し OCATE 0,3 
し OCATE 0,4 
し OCATE D,5 



PRINT 
PRINT 
PRINT 
PRINT 
PRINT 



M Wk. 

n m 



L1NE(36,22>-C3S 7 22) ， " 黼'' ， 1 
..OCATE 10， 1 ： COLOR 2 : PRINT 
—OCATE 10, □ SCO し OR 7 ： PRINT "HELP!" 
し OCATE X,Y =C0 し OR 7 ： PRINT C$ 



FOR 1=1 TO 1000 
NEXT 



MAIN し OOP 



500 
510 
520 
530 
540 
550 
560 
570 
5S0 
590 
600 
610 
620 
630 
660 
670 
680 
690 
700 
71.0 
> 720 
-730 
740 

750 PRINT CHR$C7') 
760 

1000 REM 
1010 ' 

1020 WHI し E OVER=0 
1030 ' 

1040 I$==INKEY$ s VX=0 

1050 IF I$=CHR$C29) AND X> □ THEN VX= 
1060 IF' I$=CHR$C28:) AND X<3S THEN VX- 
1070 ' 

10S0 LOCATE X，Y s PRINT " " — 
1090 ' 

1100 X=X+VX :C1*=C$ 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
I 1290 
1310 
1320 



'グコ ングを P R 



-お 姫 さま を P R I N 



- ひと を P R 



-時間 ま ち 



- メ をお した 4 ? 
-ぃ をお した 1 ? 



ひと をけ す 



IF ェ$= 
IF 



" AND Q=0 THEN GOSUB 5200 ： GOTO 1150 
Q=l THEN GOSUB 5300 ： GOTO 1150 



P=SCREEN(:X，Y:) 

IF P=ASC("H" ) THEN OVER 二 



し OCATE X，Y =C0 し OR 7 ： PRINT Cl$ 

P=SCREEN(:X，Y+1:) 

IF P=129 THEN 0VER=2 



-階段に たど りつ 
- ひと を P R I N 

あなに おちた 7 



、た？ 



IF D$=CHR$(:135) THEN GOSUB 5400 ： GOTO 1260 
IF D$=CHR$C129) THEN GOSUB 5500 ： GOTO 1260 



IF DV= 
IF DV= 



THEN GOSUB 5600 
THEN GOSUB 5700 



し OCATE 3? DY s CO し OR 2 ： PRINT D*(C) 
G=-G 

し OCATE 0,4 SCO し OR 6 ： PRINT D$C6+G) 



にァを 動かす 



'グの 手 を 動かす 
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1330 
-1340 
1350 
1360 
1370 
1380 
1390 
1400 
5000 
501D 
5020 
5030 
！ 5040 
5050 
5060 
5070 
5100 
5110 
5120 
5130 
5140 
^150 
5160 
5170 
52D0 
5210 
う 220 
5230 
- 5240 
5250 
5260 
5270 
5280 
5290 
5300 
5310 
5320 
5330 
5340 
5350 
5400 
5410 
5420 
5430 
5440 
5450 
5460 
5470 
5430 
5490 
5495 
5500 
5510 
5520 
5530 
5540 
5550 



WEND 

IF 0VER= 
IF OVER- 



THEN GOSUB 5800 ： GOTO 1000 
THEN GOSUB 7000 ： GOTO 170 ― 



：：：：：：：：：： GOTO 170 ：：：：：：：：： 

REM PRINT LADDER SUB 1 

LINE(:36,l:) — (U+3:) ， "H" ，5 ― 
F し AG=1 

：：：：：：：：：： RETURN ： s ：：：：：：： ： 

REM PRINT し ADDER SUB 2 

しェ NEC, 2， ェ:) 一 (： 2,1+3) ^ "H" »5 
F し AG=0 

：：：：：：：：：： RETURN ::::::：::： 

REM JUMPING MAN SUB 一一 



FOR 1=1 TO 20 

BEEP 1 :BEEP 0 
NEXT 



Y=Y--'l :X=X-VX :(Sl=l :C1$="| " 

：=：：：：：：：： RETURN ：：：：：：：：： 

REM DOWNNING MAN SUB 

Y=Y+1 :X=X-VX ： Q=Q 

：：：：：：：：：： RETURN ：：：：：：：：： 

REM SET D$ SUB 1 

D$=CHR$C135) 

R=INT C RND CD* C3+C*2) ) 
IF ROO THEN RETURN 



D$=CHR$C129) 



：：：：：：：：：： RETURN ： ： ： ： ： 

REM SET D$ SUB 2 

D$=CHR$C135) 

にに s にに： RETURN ： ： ： ： ： 



- 階段 をの ぼる 
-ゲ一 厶才 一バ- 



- 階段 を P R I N 



-階段 を P R I N 



ビー」 



- ジャンプ する ように 変数 を 設定 



- 着地す るよう に 変数 を 設定 



卜 コ ン ベアに 穴 を あける 



KING KONG Jr. 



し 



5600 
5610 
5620 
5630 
5640 
5650 
5700 
5710 
5720 
5730 
5740 
5750 
5S00 
5S10 
5S2D 

5850 
5860 
5S70 
5SS0 
5890 
590D 
5910 
5920 
5930 
5940 
5950 
5960 
5970 
59S0 
— 5990 
6000 
6040 
6G50 
6060 
6070 
6030 
6090 
6100 
6110 
6120 
6130 
-^6140 
6150 
r^6160 
6170 
し 6180 
6190 
6200 
6210 
6220 
6230 

6260 
—6270 



に 



REM SHIFT PASSAGE SUB 

0$(:0=0$+し£ド丁$(0$(:(：:)，；32:) < ― 
：：：：：=：：：： RETURN ：：：：：：：::: 

REM SHIFT PASSAGE SUB 

D$CC)=RIGHT$(D$(C:) ,32：)+0* ― 
s ： ： ： ： ： ： ： s s RETURN ： ： ： ： ： ： ： s ： ： 



I ン ベア を 右へ 動かす 



コ ン ベア を 左へ 動かす 



REM C し IMING MAN SUB 

FOR エ =1 TO 4 

FOR J = 1. TO 3D 

BEEP 1 :BEEP □ 
NEXT 



： PRINT "H" 



： PRINT C1i 



LOCATE X，Y = CO し OR 

し OCATE X，Y SCO し OR 

PRINT CHR$(7:) ^ 

FOR J 二- 1 TO 1000 
NEXT 



.NEXT 

C=C-1 s DY=DY-4 s DV=-DV ： J^O :0VER=0 

IF C< 0 THEN GOSUB 6400 :0VER=2 < ― 

IF C>--i THEN GOSUB 6100 <— 



-階段 をの ぼる 



：：：：：：：：：： RETURN ：：：：：：：：： 

REM SEND MESSAGE SUB 

し OCATE 0，0 SCO し OR 4 ： PRINT M$(C) 

FOR 1=1 TO 15 

FOR J=l TO 10 

BEEP 1 :BEEP 0 
NEXT 

し OCATE 4,2 = CO し OR 6 

IF I MOD 2=0 THEN PRINT " 一一 " 
IF I MOD 2=1 THEN PRINT "AA" 



-ぉ姫 さ ま をた すける？ 

- メ ッ セージ を 表示 



' セージ を表不 



FOR J = 
NEXT 



TO 200 



NEXT 



- まゆげ を ビコ ビコ 動かす 
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6280 
6290 
6300 
6310 
6320 
6330 
6340 
6350 
6400 
6410 
6420 
6430 

6450 
6455 
6460 
6465 
6470 
6480 
6490 
6500 
6510 
6520 
6530 

6555 
6560 
6^70 
6580 
6590 
6600 
6610 
6620 
6630 
6640 
6650 
6660 
6670 
66S0 
7000 
7010 
7020 
7030 
7040 
7050 
7060 
7070 
7080 
7090 
7100 
7110 
7120 
7130 
71A0 
7150 
7160 



し OCATE 0，0 ： PRINT " 



S=S+1000 

し OCATE 8^24 = CO し OR 7 ： PRINTUSING 



'セージ をけ す 
— スコア を フラ： 



：：：：：：：：：： RETURN ：：：：：：：： 

REM YOU SUCCEED SUB 

し OCATE 10,0 ： PRINT " " 
FOR ェ =10 TO 15 



BEEP 1 

FOR J=1 
BEEP □ 

し OCATE 

NEXT 



TO 100 :NEXT 



' 1 ： COLOR 2 : PRINT " ¥" 



-ぉ姫 さま、 力、 けよ る/ 



FOR 1=1 TO 20 

BEEP 1 :BEEP 
NEXT 

CO し OR " 
FOR 1=0 TO 16 



ビー' 



し OCATE 






： PRINT 




し OCATE 


3, 


1 +1 


： PRINT 




し OCATE 




1+2 


： PRINT 




し OCATE 




1+3 


： PRINT 




し OCATE 


1 , 


I +4 


SPRINT 


"■ ' ~ ' 『 


し OCATE 




1+5 


： PRINT 





NEXT 

：：：：：：：：：： RETURN ：：：：：：：：：： 

REM - - GAME OVER SUB -一 
FOR I=Y TO 21 

し OCATE X， ェ = CO し OR 7 ： PRINT C* 



- キング コング おちる 



BEEP 1 

FOR J = 
BEEP 0 



TO 10 :NEXT 



し OCATE X， ェ 
NEXT 

FOR 1=135 TO 128 STEP 一 
FOR J=l TO 10 



PRINT 



ひと、 落ちる 



ひと、 つぶれる ！ 



KING KONG Jr. 



7170 
7180 
7190 
7200 
7210 

-7220 
7230 
7240 
7250 
7260 
7270 
72S0 
72: 三 :2 
7284 
72S6 

-7290 
73DG 
7310 
7320 
7330 
7340 
7350 
7360 
7370 
7380 
7390 
7400 
7410 
7420 
： 三: 000 
8010 
8020 
8030 
8040 
S050 
8060 
8070 
8080 
8090 
8100 
8110 
8120 
SI 30 
8140 
8150 
8160 
S170 
81 SO 
8190 
8200 
8210 
8220 
8230 
8240 
8250 
8260 
8270 



BEEP 1 :BEEP □ 
NEXT 

LOCATE X，21 ： PRINT CHR*CI) 
NEXT 



CO し OR 4 

し OCATE ^， 7 SPRINT 

し OCATE 4, B ： PRINT 

し OCiATE 4, 9 SPRINT 



i i H i III H 

I I J- 丄丄 L-J I I 



I I I I H 

I 1 I 1 J I J- L_( 



CO し OR 7 
LOCATE 4,11 ： PRINT 

WHI し E INKEY$<>"s" 



****** PUSH ON し Y 匸 KEY! 



C=INT (:RND(:1:)*7:) + 1 

LINEC 2, 5)-C35i 13) , ,C,B 



WEND 



i 一入 力まち 



FOR J 
NEXT 



TO 100D 



IF S>H THEN H=S 



RETURN 



-時間 まち 



REM 



SUB 



LOCATE StO =C0 し OR 1 ： PRINT 
LOCATE 13,0 SCO し OR 7 ： PRINT 
LOCATE S, 1 = CO し OR 1 ： PRINT 



"/J"+STRING*(:20 7 
" KING -KONG- J r " 
STRING* (：23»"~") 



l") + 'T/ M 



LOCATE 0i3 SCO し OR 5 

" ュノ 「GAME」 八 

"ナ 二 ォ': ノ ID チす ィ3 ゥ 二 

"NG」 二 'リカ 7'： ノ チャフ テル 
"イス、 o クタ ル ，ロマン ケ" ー厶 



PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 



PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 



アナ ノ アイテル 「、"ル 卜:]：:.,、" ァ」 ラ 7 
「JUMP! ！」 シ テ3 ケテ， 「KING，K0 
ォ t メサ 7」 ラ タスケル ツ ティ ゥ 「タ" 

すンテ *ス《 ス: r ィ! ！ 



" II ウイ ゥ 
"チュウ シス キ "テ」 



-ォ モシ 0ィ* ケ" ー厶」 力" 



'キ チャウ 卜 》 「ネ' リ 



ホカ ノ ケ" ー厶 



'午 T7 テ =1 マ' ソチサ ウノ！ 



し OCATE 


5i 


4 


CO し OR 


2 


： PRINT 


"GAME" 




し OCATE 


25 1 




•CO し OR 


3 


SPRINT 


ル卜コ ン、" 


7" 


し OCATE 


16i 


6 


CO し OR 


3 


： PRINT 


"JUMP! ！ " 




し OCATE 


32, 


6 


CO し OR 


6 


： PRINT 


"KINGW 




LOCATE 


0， 


8 


CO し OR 


6 


SPRINT 


"NG" 




し OCATE 


17， 


8 


CO し OR 




： PRINT 


"ォ t メサ マ'' 




LOCATE 


37 » 


8 


CO し OR 




SPRINT 


"タ * " 




LOCATE 


Oi 


10 


CO し OR 




： PRINT 


" イス V ク タル- 


□ マン 


し OCATE 


12， 


12 . 


CO し OR 




： PRINT 


"ォ =e シ ロイ ザ 


一 厶 ,, 


し OCATE 


37， 


12 


CO し OR 


6 


SPRINT 


"ネ ッ" 




し OCATE 


0， 


14 


CO し OR 


6 


SPRINT 


"チュウ シス チ" 





し OCATE 0，16 SCO し OR 6 
PRINT " i— «<CAST 



ゲームの 説明 



r— «<KEY 
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8280 
S290 
8300 
8310 
8320 
S330 
S340 
8350 
3360 
S370 
S3S0 
S390 
8400 
8410 
8420 
8430 
8440 
S450 
8460 
8470 
8480 
3490 
S500 
S510 
S520 
S530 
S540 
8550 
S560 
8570 
S5S0 
8590 
S600 
S610 
3620 
8630 
S640 

+ 8650 
8660 
3670 
S6S0 
S690 
8700 
8710 
8720 
3730 
三: 740 
S750 

-3760 
S7S0 

-•'3790 
： 三:: 三: 00 

—8810 
SS30 
3S50 
8860 
： 三: 870 



FOR 1 = 
PRINT 
NEXT 
PRINT 



TO 6 



I I 



-ワク を 描く 



CO し OR 7 
し OCATE 32,17 
し OCATE 
し OCATE 
し OCATE 
し OCATE 
し OCATE 



32i IS 
32， 19 
21，20 
21,21 
21,22 



: PRINT 
： PRINT 
: PRINT 
： PRINT 
： PRINT 
: PRINT 



SPACEI 



SYMBO し 
SYMBO し 
SYnBO し 
SYMBO し 



30*16»21*8 
36*16,21*8 
33*16? 18*8 
33*16, 21*S 



«CHR$(29 
. CHR$(2S 
»CHR$C30 
. CHR$C31 



i i i i i — i 

， 2 1 1 ， 2 
,2， 1，2 



し OCATE 22,21 ： COLOR 2 ： PRINT "SPACE" 



- 操作 を 説明 



し OCATE 2, IS 
CO し OR 7 =PRINT 
CO し OR 7 ： PRINT 

し OCATE 2， 20 
CO し OR 2 ： PRINT 
CO し OR 7 ： PRINT 

し OCATE 2， 22 
CO し OR 3 ： PRINT 
CO し OR 7 ： PRINT 



f. 卜 



•]:•〃•、、、 



「ォ 亡メサ 7 j"— 



- 登場人物 を 説明 



CO し OR 7 

し OCATE 5,24 ： PRINT PUSH ON し Y 匚 S] KEY 



D$=" KING -KONG- J r " 

WHILE INKEY*<>"5" 

D$=RIGHT$(D$， 13)+ し EFT$(D$， 1:) 
し OCATE 13,0 SCO し OR 7 .'PRINT D$ 

R=RNDCi) 

WEND 



： 一入 力まち 



TO 50 
1 :BEEP □ 



FOR 1 = 
BEEP 
NEXT 

し OCATE 0,24 

FOR ェ =1 TO 25 

PRINT 
NEXT 

：： s ：：：：：： ： RETURN 



- r ビー j 



- 画面 をキ レイに する 



REM 
REM 
REM 



FORESIGHT PLANNING SECTION 
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10 月 26 曰 （火） はれ 

やっと、 『中間 テス 卜』 がお わつ ちゃい ました。 よかった あ/ 

『中間 テス 卜』 がお わつ ちゃった の は 『はるみ、 うれしい っア』 
ン だけど、 はるみ 『カゼ』 ひいち やっ^んで 一す。 
う 一ん、 あたまいた いよお 一 7 

さっき、 はるみの 『おねつ』 を はかったら 『8 ど 2 ぶ』 もあった 
から、 あした は 『がっこう』 おやすみし なぐつ ちゃ •••••• 。 

はるみの 『クラス』 でも 『カゼ』 で 『おやすみ』 してた ひと 『5、 
6 人』 いたから、 『はるみ も だいじ ようふ' かな あ 一,』 つて 思って 
たの。 

そしたら、 やっぱり はるみ 『カゼ』 ひいち やい ました。 
はるみの ばあい、 『カゼ』 を ひいち やうと 『フカ フカお ふとん』 
に 『あかちゃん』 みたい に 『1 曰 じゅう』 ねち やうの。 
ほんと、 『しらゆき 姫』 みたい に、 す 一つと …- 。 

『おとも だち』 から、 『カゼ ひいち やったら、 ョル ねる まえに、 
「ホッ 卜 • レモン」 のむ といい の』 つて おしえて もらつ ちゃった か 
ら、 はるみ もた めして みょうつ と/ 

ぁッ、 この 『ホッ 卜 • レモン』 つてい うの は、 『ホ ッカホ 力のお 
ゆ』 に 『レモン をし ぼった の』 と 『八チ ミツ』 をい れ^ちの のこと 
です。 

はるみの 『おとも だち』 は、 この 『ホッ 卜 • レモン』 を 『ねる ま 
え』 に のんだら、 すぐに 『カゼ』 なおつ ちゃい ました。 ホン 卜, 

はるみ も、 なおる といい な ぁーア 
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» if 

この 『ゲーム』 は、 地球に 『植物 さいしゅう』 にきた 『E. T. くん』 が 
『宇宙船』 が 飛びた つまえ に 『植物』 を 『15 コ』 もちかえん なくつ ちゃい け 
な いっていう ゲームです。 

『宇宙船』 が 飛びた つまえ に 『植物』 を あつめち やわない と 『E.T. く 
ん』 は 地球に おいて かれち やい ます。 タイ ヘン， 

• あそび かた 

RUN しちやう と 『画面』 に は 写真 O みたく 『ゲームの 説明』 が PRI 
NT され ま 一す。 

この 『ゲームの 説明』 をよ く 読んで から 『小文字の s』 を 押す と、 ゲー 
厶が 始まって 『画面』 は 写真 0 みたくな るんで す。 

『画面』 の 下の ほうに ある く厂 (= 匚 コ —コ 〉 は 『宇宙船』 、 その 
『宇宙船」 にの つてる く:：〉 は 『E.T. くん』 『画面 じゅう』 にち らばつ 
てるく 口〉 は 植物』 です。 

ゲームが 始まつ ちゃう と、 だんだんと タイムが へって き ます。 

二の タイムが なくなつ ちゃうと 『ゲ一 厶才 一バー ァ』 になつ ちゃうから、 
その まえに 『植物』 を 『宇宙船の 中』 （ 『宇宙船』 のまん なかのと ころ） 
に 押して 運ん じ やえばい いの。 

もしも 時間 内に 『植物』 を 『巧 コ』 あつめち やうと 『画面』 は 写真 ©み 
たいに なり ます。 

ちょっと 『厶ッ 力 シィ』 ゲーム だけど、 おもしろ いから、 『E. 丁.』 を 
観た ひとは 1 度く らい あそんで みて ね。 
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o プログラム 'リスト 



ID 
20 
30 
40 
50 
60 
70 
SO 
90 
100 
110 
120 
130 
140 
150 
160 
170 
180 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
> 320 
340 
350 
360 
370 
380 
390 
400 
405 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 



REM 

REM *** *** 
REM く E-T, > *** 

REM *** *** 
REM *** By 
REM *** HARUM1 TAKAHASHI *** 
REM *** *** 
REM 
REM 

WIDTH 40 1 25 = CONSOLE 0 9 25,OiO~l 
CO し OR 7i0 SPRINT CHR$( 12：) 5 J 



-R E M 文 



- 初期設定 



H=0 

GOSUB SOOO 

S=0 :X=19 ： Y=22 :OVER=0^ 

REM PRINT CRT SUB 



- ゲームの 説明 をし ちゃ- 



-変数 を 設定 



CO し OR 7,0 = PRINT CHR$(:12); 
PRINTUSING " 匚 s SCORE □ 



し INEC 0， i :) 一 (： 0,24) ,CHR$C13i:) ,3 
LINE (: 3: 三い 1：)-(：33,24) , CHR$C131) ,3 



画面 をキ レイに しちやう 

:MAX き ## D" ;H 

メーター を 描く 



CO し OR 5 
し OCATE 1， 

FOR 1=2 TO 23 
し OCATE 1， ェ 
LOCATE 37， ェ 

NEXT 



'•PRINT 



： PRINT 
： PRINT 



LOCATE i,24 ： PRINT 



し INEC 2, 3) -(：36,23) 9 CHR$C135) 
しェ NEC 3, 4：)-(：35,22) , " "，7,BF 



B 



- ワク を 描く 



CO し OR 6 

し 0CATE10, 2 "-PRINT " JC "+STRING* ( 15 , 1 
CO し OR 7 

し OCATE 16, 22 ： PRINT " r |= 匸 コ：1 つ " *~ 



':) + "] い 



FOR 1=1 TO 100 

LOCATE INT (: RND (: 1 :) *33) +3 , INT (: RND (: 1 ：)*17：) +4 
CO し OR 2 =PRINT CHR$C135) 

NEXT 

LOCATE 19,20 ： PRINT " " 



-UFO を PR I NT/ 
障害物 を 表示 



104 



E. 



550 

560 

570 

530 

590 

600 

610 

620 

630 
' 640 

65D 

660 

670 
- 680 

690 
- 700 

710 
- 72G 

730 ' 

1010 
► 1020 
1030 
1040 
1050 
1060 
1070 
10SQ 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1230 
1240 
1250 
1260 
1270 
12S0 
1290 
1300 
1310 
- 1320 
1330 
1340 

1360 
1370 
5000 



FOR 1=1 TO 25 

し OCATE INT (： RNDCl ：) *31 ) +4 , INT C RND (： 1)*17：) +5 
CO し OR 6 SPRINT "□" 

NEXT 



植物 を P R 



LOCATE X，Y = CO し OR 7 ： PRINT 



くん を P R 



FOR 



=30 TO □ STEP 



FOR J=l 

BEEP 
NEXT 



「0 



FOR J=l TO 

BEEP D 
NEXT- 



NEXT 



REM 



- サゥン ド 



hAIN し OOP 



FOR T=:720 TO 39 STEP 



I$=INK£Y$ 二 0 
IF I$=CHR$(:29 
IF I$=CHR$C28 
IF I$=CHR$(30 
IF I*=CHR$C31 



:VY=0 

THEN VX=-1 

THEN VX= 1 

THEN VY=--i 

THEN VY^ 1 



LOCATE X,Y SPRINT 



をお した？ 
をお した *? 
をお した 1 ? 
をお した？ 

, T. く んを けす 



X=X+VX 
Y=Y+VY 

-SCREEN (:X，Y) 
IF P ::219 THEN GOSUB 5000 
IF P<> 32 THEN GOSUB 51D0 



-植物 をけ す？ 
-動け ない 4 ? 



CO し OR 7 
し OCATE. XiY 



： PRINT 



P=SCREEN(:19，22) 

IF P=219 THEN GOSUB 5300 

h=25-T/3D 

し OCATE 0,M ： PRINT " " 
し OCATE 38 , M ： PRINT " " 



IF 0VER=1 THEN GOSUB 5600 ： GOTO 7000 



んを P R 



- 植物 を 運び いれた 



'—ター を 表示 



NEXT 



GOSUB 5800 



GOTO 7000 



REM PUSH BLOCK SUB 
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501Q 
5020 
5030 
5040 
5050 
5060 
5070 
5072 
5074 
50: 三 :0 
5090 
5100 

う 120 
5130 

-5140 
5150 
5160 
5170 
5 ISO 
5190 
5200 
5300 
531D 

> 532D 
5330 
5340 
5350 
5360 
5370 
53&0 
5390 

-5400 
5A10 
5420 
5430 
5440 
5450 
5460 
5470 
5480 
5490 
5500 
5510 
5520 
5600 
5610 
5620 
5630 
5640 
5650 
5660 
5670 
5680 
5690 
5700 
5710 



P=SCREEN ( X+VX ， Y+VY :) 
IF P<>32 THEN RETURN 

CO し OR 6 
LOCATE X+VX»Y+VY ： PRINT 



- 押す ことができる？ 



- 植物 を P R I N 



P=32 



REM 



： RETURN ：：：：：：：：： 

STOP THE MAN SUB 



FOR 1=1 TO 20 

BEEP 1 ！: BEEP 0 
NEXT 



X=X-VX 
Y=Y-VY 



-ビー': 



-動 くの を やめる 



i にに にに！： RETURN ：：：：：：：：：« 

REM SCORE ADD SUB 

FOR 1=135 TO 12S STEP - 1 

し OCATE = CO し OR 3 SPRINT CHR$(:I:) 



TO 20 iNEXT 



BEEP 1 

FOR J: 
BEEP □ 

NEXT 



S=S+100 

LOCATE 9,0 ： COLOR 7 iPRINTUBING "祐神せ林^；；^ 



- 植物 をけ す 



LOCATE INTCS/100 2 
IF S=1500 THEN 0VER=1 一 
し OCATE 19， 22 ： PRINT " •' 
：：：：：：：：：： RETURN ：：：：：：： 

REM YOU SUCCEED SUB 



i ァを フラニ 



s COLOR 2 ： PRINT "□"」 

15 コ 運び こんだ？ 



CO し OR 3 
し OCATE 7， 



： PRINT 



I YOU SUCCEED 



CO し OR 5 

LOCATE 4, 7 ： PRINT "ァァタ 八， r i., 、、カン: T.i' 」 二 「15：]」' 

し OCATE 10, 9 ： PRINT ，'ノ クフ" 'リ」 ラ フ、" シ、、 ァ' リメ ラレ，' 

し OCATE 21， 11 ： PRINT "7 シタ <» オメ テ、、 卜ゥ ！ ！ " 



RETURN 
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5800 
5S10 
5820 
5830 
5840 
5S50 
5360 
5870 
5880 
5890 
5900 
591D 
5920 
5930 
5940 
5950 
5960 
5970 
59S0 
5990 
6000 
6010 
6020 
7000 
7010 
7020 
7030 
7040 
7050 
7060 
-7070 
70S0 
7090 
7100 
7110 
7120 
8000 
8010 
3020 
S030 
3040 
SD50 
3060 
8070 
S0S0 
S090 
SI 00 
8110 
8120 
8130 
8140 
S150 
SI 60 
8170 
S180 
8190 
8200 



REM JUMPING UFO SUB 

FOR Y=22 TO 1 STEP 一 1 

LOCATE 16 ，Y ： COLOR 7 ： PRINT VI： 匸 ル 



BEEP 1 

FOR ] 
BEEP □ 



TO 30 sNEXT 



LOCATE 16, Y CO し OR 
NEXT 



： PRINT 



- U F 0 ジャンプ/ 



COLOR 4 
し OCATE 5， 9 
LOCATE 5， 1[) 
し OCATE 5^11 



: PRINT 
: PRINT 
： PRINT 



i n I— i M I 
i i j_ i i, i—i . 



hi 



I i I ! H h- 1 

l 1 I 1 -I 1 上 L-J 



し INEC 3, 7 ト （35， ' 
s s s : : : s : s : RETURN ： s s s 3 : : k : : 

REM GAME OVER SUB "- —— 

CO し OR 7 

LOCATE 5,13 ： PRINT PUSH ONLY LSI KEY! 



WHILE INKEY$<> M s" 

R=RND(:1:) 
WEND 



PRINT CHR* (：7：) ； 



- キー入力 ま ち 

- 1 匕 ッ』 



REM 



にに GOTO 170 ：：：：：：：： 

一 一一 DEMONSTRATION SUB 



LOCATE :三:,0 SCO し OR 1 ： PRINT 
し OCATE 14,0 ！! CO し OR 7 s PRINT 
LOCATE ： 三:， 1 s COLOR 1 ！: PRINT 



"/J-'+BTRING^C 1: 三:，'' 讕'' :) + "『/' 
STRING* (21 1 『":） 



LOCATE 0，3 
PRINT SPRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 



PRINT 
PRINT 
PRINT 
PRINT 
PRINT 



SCO し OR 5 
" ：] ノ 「GAME」 /、， 
" チタ 「E,T ，フン」 力" 



-チ宁 ユウ」 二 r y3 フフ"' リ」 ， 卜リ 二 

r UFO」 TT 卜 亡、 、タ' リ 7 ェ 二 「シ 3フ 
"フ" 'リ」 ラ 「15：]」 モチカ ェン: T フ': パリ チヤ ィケ ナイ' ソ テイ ゥ "、、—し 
"テ" ス<> サス 力" ！ ！ 

»' ruFO」 力" 卜 1= 、、タツ 7 ェ 二 「シ 3ク フ"' リ」 ラ ァ' リメ ナイ 卜 
"「E,T, クン」 八， オイ テ カレ チヤ ィ マース 《 タイ、 ン! ！ 



し OCATE 




4 


： CO し OR 




： PRINT 


"GAME" 


し OCATE 


15， 




= CO し OR 


3 


： PRINT 


"チゃ ユウ" 


し OCATE 


24， 




： CO し OR 


6 


： PRINT 


"シ s フフ"' リ" 


し OCATE 


4» 


6 


に0 し OR 




： PRINT 


"E,T, クン" 


し OCATE 


16， 


6 


SCO し OR 


2 


： PRINT 


"UFO" 


し OCATE 


36, 


6 


： CO し OR 


6 


： PRINT 


"シ 3 フ" 


し OCATE 


0， 


： 三： 


： CO し OR 


6 


： PRINT 


" フ、、 T' 



ケ- 



) 説明 



8210 
8220 
S240 
3250 
8260 
S27Q 
S280 
^ ： 三: 290 
S300 
S3 10 
： 三: 320 
8330 
8340 
3350 
S36D 
： 三： 370 
S380 
8390 
8400 
84 10 
8 A 20 
S430 
Q440 
S450 
S460 
S470 
S4S0 
8490 
： 三: 500 
8510 
： 三: 520 
8530 
3540 
3550 
8560 
S570 
S5S0 
： 三: 590 
8600 
86 10 
S620 
8630 
S640 
8660 
： 三る 70 
8690 
8710 
8720 
8730 
8740 
8750 
3770 
8780 
8790 
8800 
8810 
8820 



LOCATE 8, 8 ！: CO し OR 3 = PRINT "15 コ'' 

し OCATE 2, 12 =C0 し OR 2 = PRINT "UFO" 

し OCATE 22, 12 = CO し OR 6 ： PRINT "：： ノ 3 フフ" ， ! 尸 

LOCATE 1, 14 ： COLOR 4 ： PRINT "E.T.7:'' 1 



し OCATE 0,16 = CO し OR 6 

PRINT " r— «<CAST 

FOR 1=1 TO 6 
PRINT "| 
NEXT 

PRINT —— 



r—«<KEY 



- ワク を 表示 



CO し OR 7 
し OCATE 32， 17 



し OCATE 
し OCATE 
し OCATE 
し OCATE 
し OCATE 

SYMBO し 
SYMBO し 
SYMBOL 
SYMBO し 



32， 18 
32， 19 
21,20 
21,21 
21,22 



： PRINT 
： PRINT 
： PRINT 
： PRINT 
： PRINT 
: PRINT 



Li I I 1 I I 



(36*16? 21* 
(33*16i IS* 
(33*16 ? 21* 



：) ？ CHR$C29 
：) ？ CHR$C2S 
:) 9 CHR$C30 
:) i CHR$(3i 



1 , 2 



- キー 操作 



LOCATE 2， 18 

COLOR 7 ： PRINT "令 'S' 

CO し OR 7 ： PRINT " 「E,T, ワン」 

し OCATE 2,20 

CO し OR 6 SPRINT "□ " ？ 

CO し OR 7 ： PRINT " 「ショ クフ、 、'リ 」 

し OCATE 2,22 

COLOR 2 ."PRINT " 酾 " ； 

CO し OR 7 ！: PRINT 「 力、" 」 '画 



CO し OR 7 

し OCATE 5,24 ： PRINT PUSH ONLY USD KEY 



- 登場人物の 説明 



D$= 



-T. 



WHI し E INKEY$<>"s" 

D$=RIGHT$(:D$,9:i"+^EFT$(:D$, 1:) 

し OCATE 14,0 : CO し OR 7 ： PRINT D* 

R=RND(:l:i 

WEND 



： 一入 力まち 



TO 50 
:BEEP □ 



FOR 1 = 
BEEP 
NEXT 

し OCATE 0，24 

FOR 1=1 TO 25 

PRINT 
NEXT 



! ' ビー 



画面,； をキ レイに する 



RETURN 
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10 月 27 曰 （水） はれ 

はるみ、 ほんと に 『カゼ』 ひいち やい ました Z 
きのう、 ョル ねち やう まえに 『ホッ 卜' レモン』 のんだ けど、 は 
るみの 『カゼ』 に はきかなかった みたいです。 

『カゼ』 ひいち やって、 あたま 『いだ あい 7』 の はもち ろん ィゃ 
だけど、 はるみ は 『'「お ふろ」 に はいれない』 のが 『いちばん'』 
ィ やです。 

ほんと、 はるみ は 『お ふろ 中毒 ァ』 で、 もう S 曰か かさず 『お ふ 
ろ』 に はいって ます。 

やっぱり、 『お ふろ』 に はいらな いと、 からだが なんとな ぐ 『ネ 
卜ネ 卜』 しちやって きちち わるい ちん, 

それに、 『お ふろ』 のなかで 『ポー ッ 7』 つと してる のって 気分 
いいし •••••• 。 

でも、 その 『お ふろ 中毒』 のお かげで、 はるみ 『カゼ』 ひいち や 
つたんだ から、 かんがえ もんね。 ゥン' 

それで、 はるみ 『がっこう』 おやすみし ちゃった もんだ から 『お 
ともだち』 が はるみの こと 『しんぱい』 して、 『はるみ、 きょう、 
どうしたのお？』 つて 『おでん わ』 して くれたり、 はるみの ママ は 
はるみの だめに 『グラタン』 を 作って <れ たり •••••• 。 

たまに は 『びょうき』 しちやう の もい いな あ。 

そういえば、 さっき 『バッファ 1 J ン』 のんだ から、 あだま 『いた 
あい ァ』 のな おつち やい ました。 
『バッファ リン <ん』 ェ ラーイ だ 
でも、 まだ 『コ ホ、 コホ』 せきがで るけ ど •••••• 。 



109 




みなさん/ みなさん は 『よい この マイコン ファン 7』 だ もん、 『まん 
びき』 なんかした ことない わよ ね？ 



もつ ち ろん、 はるみ だって、 やった ことはありません ょア 

さて、 この ゲーム は 『まんびき 少年』 力く 『スーパー マー ケッ 卜』 にある 

『品物』 をぜ 一ん ぶ 『まんびき しちやう』 つてい う 『教育 上たい へんよ ろ 

しくない』 ゲームで 一す ッア 二 わ 一い〃 

『ガードマン V S まんびき 少年』 、 さあ、 どっちが 勝つ か？ 




あそび かた 



んと、 RUN しちやう と 『画面』 は 写真 O みたく 『ゲームの 説明』 が P 

R I NT されち やい ます。 

この 『ゲームの 説明』 をよ一 く 読んで から 『小文字の s 』 を 押す と、 ゲ 

ー厶が 始まって 写真 @ みた く な るんで す。 

さ 一て、 『ゲーム 内容』 は、 『ガードマン』 にみ つかつ ちゃわな いよう 
に、 時間 内に 『スーパー マー ケッ 卜』 にある 『品物』 〈 〉 をぜ 一ん ぶ 取 
つち やうって いう ものな の。 恐怖/ 

『ガードマン』 は、 いつも 『スーパー マーケット』 のなか を 見 まわって 
て、 『まんびき 少年』 を 見つける と 『コ ラッ』 つてお こって つかまえ ちゃ 
うんです。 （『まんびき 少年』 は、 見つかつ ちゃった だけで ダメ, ） 

だから、 『まんびき 少年』 は、 『品物』 のカゲ にかくれ たりして、 見つ 
かつち やわない よう にしな く ちゃい けない の。 ムッカ シィ〃 

えと、 『まんびき 7』 のし かたは、 取りたい 『品物』 の ほうへ 力 ラダ を 
むけて 險^=^侧 を 押せば いいんです。 カン タン。 

こうやって、 時間 内に 『スーパーマーケット』 にある 『品物』 をぜ 一ん 
ぶと つち やえばい いの。 

でも、 『ガードマン』 にっか まっちゃったり、 時間 内に ぜんぶ とれな か 
つたり すると 『ゲームオーバー 7』 で 一す。 



この ゲームの コッ は、 厶リ をしたり しないで、 『ガードマン』 の 動き を 
よくみ て 『タイミング よく』 まんびき しちやう ことです ッ. P 
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SHOP LIFTER 





ト 写真 o ゲームの 説明で 一す, 




寺 写真 0 まんびき してる ところ。 
譬 キー 操作 



REPLAY 



H 

BBS 

4r 



スペース 





o プログラム • リス 卜 



REM ************************ 
REM *** *** 

REM < SHOP し IFTER > 

REM *** *** 
REM *** By 
REM *** HARUMI TAKAHASHI *** 
REM 
REM 
REM 
DEFINT A-Z 

DIM G し •/■ C 7 ) i GR7. (7) i S し •/■ (4) i SR'/義 C 4 ) 
WIDTH 40,25 : CONSOLE 0,25,0,0 
CO し OR 7,0 SPRINT CHR$(:12:)5 



H=G 

GOSUB 8D0G 



-R E M 文 



- 初期設定 



ゲームの 説明 を 表示し ます, 



RESTORE 

FOR J>0 TO 7 

READ G し ■/:(: ェ:） 
NEXT 

FOR 1=0 TO 7 

READ GR7.<1) 
NEXT 

FOR 1-0 TO 4 

READ S し 7.(:ェ） 
NEXT 

FOR 1=0 TO 4 

READ SR7.CI) 
NEXT 

DATA 3224 , 202S6 , 8192, 15495 
DATA 8192 i 8232 » -26848 9 S192 

DATA 8252 , 20256 ？ 8192， 135 
DATA 15872， S224 ? -30679 9 8192 



DATA 
DATA 



： 三 :27 1 ， 834 1 ， -30914 , 1039 1 ， S960 
： 三 :27 1 ， 8252 ， -30327 , 9096 ， 10496 
S=0 :S1=D ： T=0 ： X=36 ： Y=22 ： V=- 

REM PRINT CRT SUB 

CO し OR 7，0 ： PRINT CHR$C12) ； 

PRINTUSING " 匚:: SCORE 03 <SHOP し IFER> 



•P U T 用の 変数 を 設定 



Xl=3 :OVER=0 



- 変数 設定 



—— 画面 をキ レイに しちや 
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SHOP LIFTER 



445 
450 ' 

460 COLOR 
470 LOCATE 
4S0 LOCATE 
490 ' 

500 しェ NEC □ 
!51D しェ NEC 39 
520 ' 

530 しェ NEC 1 
540 し I NEC 3: 三: 
550 1 
->560 FOR M=^6 



しェ NEC 2, 4：)»(：37,22) • 



23 



： PRINT 
： PRINT 



4 ) - C 0- 
4) - (:39' 



4)- 
4：)- 



(：ふ 三:' 



22) 
22：) 

22) 
22) 



» 7 , BF 



； STRING$(3S, 
； STRINGS 38， 



570 
5SG 
59G 
600 
6 10 
62G 
630 
640 
650 
660 
670 
630 
-690 
-700 
710 
720 
730 
740 
750 
760 
770 
780 
800 
310 
820 
330 
840 
1G00 
•1010 
1020 
1030 
1035 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 



FOR N=^4 



：) 30 STEP ： 三： 
TO 15 STEP 



11 



し IINJECM ' 



N)- 



'円" 
'円'' 



CO し OR 3 
し OCATE M 十 1 
LOCATE M+'i' 



INJ 

N+7 



しェ NECM+l ,^J+l•ト 
しェ^iE(:l v i+2，i^JH-l:)- 



sPRINT 
： PRINT 



NEXT 
NEXT 

LINEC 0,24：) - (39,24) , "國" , 1 



'プを 描く 



し OCATE 0,24 
CO し OR 2 SPRINT W 



: CO し OR 



： PRINT "す; 



f ータを 表示 



puxacx- 



-1) --(X + l^Y+l) 7 S し'/:， 7 • 



少年 を PRINT 



FOR I 
NEXT 



=1 TO 1000 



- 時間 まち 



PRINT CHR$C7) : 



REM 



MAIN し OOP 



WHI し E OVER=Q 

I*=INKEY$ ： VX=0 
IF I$=CHR$C29 
IF I$=CHR$(:2: 三: 
IF I*=CHR$C30 
IF I*=CHR*C31 



:VY=0 
THEN 
THEN 
THEN 
THEN 



VX=-1 ： v= 
VX= 1 ： v= 
VY— 1 

VY= 1 ― 



をお したの？ 
をお したの？ 
をお したの？ 
をお したの？ 



GOSUB 5000 
IF Pl<>32 



OR P2<>32 THEN GOSUB 5300 



し INECX- 



， Y — 1) 一 (:X + 1， Y+l) 



， 7 ， BF 



- 動いて いいの？ 
少年 をけ す 



Xh-VX 
Y+VY 
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IF V=-l THEN PUT5KX — 1，Y — 1) 一 (:X + 1»Y+1:) ，S し ■/•， 
IF V= 1 THEN PUTSKX — 1,Y — 1:) 一 (:X+1,Y+1) ,SR'/1， 



1160 
1170 
11S0 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
12SD 
129C1 
1300 
1310 
1320 
1325 
1330 
1340 
1350 
1360 
1370 
1380 
-1390 
1400 
1410 
1420 
1430 
1440 
1450 ' 

1460 ：：：：：：：：：： GOTO 390 

5000 REM PEEK SCREEN SUB 

5010 ' 
5020 
5030 
5040 ' 

5050 ：：：：：：：：：： RETURN 
5060 ' 
5100 
5110 
5120 
5130 
5140 ' 

5150 ：：：::::::: RETURN 
5160 ' 
5200 
5210 
5220 
5230 
5240 ' 

5250 ：：：：：：：：：： RETURN 
5260 ' 
5300 
5310 
5320 
5330 



- 少年 を p R I 
-万 引きす るう 



-ガ一 ド マンの 
動き を 決める 



IF 1$=" " THEN GOSUB 5400 < ― 

IF Xl= 3 THEN Vl= 1 
IF Xl=36 THEN Vl=-1 

IF Xl=li OR Xl=19 OR Xl=27 THEN GOSUB 5700 . 
Xl = Xl-t-Vl 

GOSUB 59DD —ガードマン を PR I NT.' 

R=(Xl-3) MOD ： 三： 

IF R=0 OR R=l THEN GOSUB 5800 —万引き 少年 を 発見.' 

IF T=1105 THEN 0VER=1 

LOCATE "1 メ— 夕— を旁モ 

CO し OR 2 ： PRINT "liT" ； ： COLOR 1 ： PRINT "J" ；_[ 

WEND 

IF OVER=i THEN" GOSUB 6200 
IF 0VER=2 THEN GOSUB 6000 

GOSUB 7000 



IF VXOO THEN GOSUB 5100 
IF VYOO THEN GOSUB 5200 



左右に 動く の 
- 上下に 動く の 



REM PEEK SCREEN SUB 1 

Pl=BCREENCX + VX + VX,Y-i:) 1 _ 少年の 左右 を しらべち やう 

P2-SCREEN (： X+VX+VX , Y+ 1 ) J 



REM PEEK SCREEN SUB 2 

P1=SCREEN(X-1,Y + VY + VY)-1 少年の 上下 を しらべち やう 

P2=SCREEN (： X+ 1 , Y+VY+VY ) J 



REM STOP THE NAN SUB 

VX=0 
VY=0 



SHOP LIFTER 



5340 
5350 
5360 
5A00 
5410 
5420 

5440 
•5450 

5460 
-5470 

5490 
5500 
5510 
5520 
5530 
5540 
5550 
5560 
5570 
5530 
5590 
5600 
5610 
5620 
5630 
5640 
5650 
5700 
5710 
5720 
5730 
5740 
5750 
5760 
5770 
5800 
5810 
5820 
5S30 

5S50 
5900 
5910 
5920 
5930 
5940 
5950 
5960 
5970 
6000 
6010 
6020 
6030 
6040 
6050 



REM 



: RETURN ：：：：：：：: 

SHOPLIFTING SUB 



P=SCREEN(X+V+V, Y) 

IF POASCC" 円'' :） THEN RETURN 



ベ 円〉 がなければ もどる 



FOR 1=1 

BEEP 
NEXt 

し OCATE 
IF' V= 
IF V= 



TO 10 
1 sBEEP □ 



X+V»Y ： COLOR 7 
一 1 THEN PRINT " 
■ 1 THEN PRINT " 



-手を 



し OCATE X+V+V? Y = CO し OR 
IF B 



-•PRINT 



S300 THEN 0VER=2^— 

し OCATE S , □ SCO し OR 7 :PRINTUBING "##•###' 

BEEP 1 

し OCATE X+V,Y ： PRINT "-" 
BEEP □ 



、コ. つてす る 
-〈円〉 をけ す 
全部と つち やった？ 



REM 



： RETURN ：：：：：：： 

RNDOM MOVE SUB 



R=INTCRNDC1)*4:) 

IF R=0 THEN Vl = INT(RNDCi:)*2)*2- 
IF R=l THEN V1=SGNCX-X1) 



-ガ一 ド マンの 動き をき める 



REM 

IF X1=X- 



RETURN ： = ：：：!!：：：： 

SCANNIER SUB 

OR X1=X OR X1=X+1 THEN 0VER=1 
：：：：：：：：：： RETURN ： ： ： ： ： ： ： s ： ： 

REM PRINT GUARDMAN SUB 

R=T MOD 2 

IF R=0 THEN PUTaCXl-2, 1) -CX H-2i3) i GL7. , 
IF R=l THEN PUTa(Xl-2, 1)-(X1-h2i3) ? GR7., 



-ガ一 ドマ ンを 表示 



!：：：：：：：：： RETURN ：：：：：：：： 

REM YOU SUCCEED SUB 



し OCATE 7i4 SCO し OR 3 ： PRINT STRINGS (25 ，"■" :) 
し OCATE SCO し OR 7 ： PRINT "I YOU SUCCEED 

CO し OR 5 
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6060 
6070 
60S0 
6090 
6100 
6110 
6120 
6130 
6140 
6150 
6160 
6170 
6 ISO 
6200 
6210 

「6220 
6230 

L 6240 
6250 
6260 
6270 
6280 
6290 
6300 
6310 
6320 
6330 

635D 
6370 
6380 
6390 
r>(S400 
1 - 6410 
6420 
6422 
6424 
6430 
6440 
6450 
6460 
647D 
6480 
6490 
6500 
6510 
6520 
6530 
6540 
7000 
7010 
「7020 
] 7030 

7050 
7060 
7070 



1 A "T c 

し し） し A 1 ヒ 






； ppi|\j 了 


" アナ タ 八， 「ゼフ、、：/，ィ レフ"：.,」 


71 " ^-i'tI' 7.JI" 


1 r\ p A T C 
しし） し^ 1 ヒ 


厶 ， 


9 


： PRINT 


ト. 
'ヽ 

に' 

、 

，ヽ 


r マ: ノ亡" 千」 y¥-p" 


し OCATE 




1 I 


： PRINT 


"イマ シタ! ！ " 




し OCATE 




13 


: PRINT 


" ォカ ケ" テ" , 「でフ"：ノ'ィレフ" 


ン j 八 r 卜ゥ サン 』 11 


し OCATE 




15 


SPRINT 


"ヌル:] 卜 二 す リマ シタ 《 " 




CO し OR 


7 










し OCATE 




IS 


： PRINT 


PUSH ON し Y 匸 S〕 


KEY ！ 



LINEC 2? 2: 卜 d20: い'' ふ B 



'セージ を表不 



RETURN 



REM - - ARREST SUB 



FOR ェ：1 TO 30 

BEEP 1 :BEEP 0 
NEXT 



: ビー .i 



FOR Yl= 



TO Y-f 



CO し OR 7 
し OCATE Xl-liYl 
し OCATE X1-1 ? Y1+1 
LOCATE Xl-liYl+2 
LOCATE Xl-l^Yl+3 

NEXT 



： PRINT " " 
： PRINT " 0 " 
： PRINT •'<»>' 
： PRINT "(: :)' 



' ガー ドマ ンを 動かす 



CO し OR 3 
し OCATE XI 



FOR J 
NEXT 



Yl-1 

i to loacr 



SPRINT "II ラ •: 



- 時間 まち 



しェ NEC 3， 5) — (36， 13:) 



， A ， BF 



CO し OR 4 
し OCATE 5, 7 
し OCATE 5, 8 
し OCATE 5， 9 

CO し OR 7 
LOCATE 5,11 



： PRINT 
： PRINT 
： PRINT 



I i I— i II I I H 

I I J_ L.,1, l_J J_J 



T T - ! 1 1 1 1 

I I H に ， 

I I J I X. l_J J " 



PRINT PUSH ON し Y 匚 S3 KEY! 

LINEC 3， 5) -(36, 13) , "■" ? 6,B 
：：：：：：：：：： RETURN ：：：：：：：：：： 

REM GAME OVER SUB 



WHILE INKEY$<>"s 

R=RND(1) 
UEND 

IF S>H THEN H=S 



-入 力まち 



SHOP LIFTER 



7 ひ 三 :0 
7090 
SOOO 
8010 
： 三: 020 
8030 
8040 
S050 
3060 
S070 
3080 
3090 
： 三: 100 
SI 10 
S120 
SI 30 
8140 
SI 50 
3160 
8170 
： 三 :1: 三 :0 
8190 
£'■195 
8200 
82 iO 
> ：3220 
8230 
3240 
S250 
8260 
8270 
S2S0 
8290 
8300 
S3 10 
8320 
S330 
3340 
S350 
8360 
S370 
83S0 
S390 
：3400 
S410 
8420 
S430 
8440 

8460 
S470 
8480 
S490 
： 三: 500 
8510 
8520 
8530 



REM 



'• RETURN ： ： ： 

DEMONSTRATION BUB 



LOCATE ： 三:， 0 
し OCATE 14^0 
LOCATE ： 三:， 1 

LOCATE 0,3 
PRINT 2 PRINT 



： COLOR i ： PRINT "/J"+STRING$C20, 
: CO し OR 7 SPRINT " SHOP しェ FTER " 
： COLOR 1 :PRINT STRING* ( 23 » "~ " ) 



PRINT 
PRINT 
PRINT 
PRINT 
PRINT 



-PRINT 
： PRINT 
-PRINT 
： PRINT 
'•PRINT 



= CO し OR 5 

" コノ 「 game 」 八 ：• 「 tr フ" :.' - ィ レフ" y 」 rr 「 1 1 シ、、 」 二 
"T'VT 「、ィ テン」 y チれゥ マエ 二 「シナ モノ」 <円> ラ tr 一::./ フ" 

' '卜 ツチれ ゥ 'ソ ティ ゥ T 、—し テ" 一 ス《> 

" テ "モ， 「ケィ に "イン」 二 「7:ノ亡"中シテ1し卜コ」 ， S' リカ':/ チャウ 
"卜 r GAMEOVER! ！ j シチサ ウノ <» タイ、 ン！！ 



U ノ や一 し 



" レンシ ユウ ！ 



シ す ィテ" to ォネ 力" ィ ！ 



し OCATE 




4 


： CO し OR 




： PRINT 


"GAME" 


し OCATE 




4 


SCO し OR 




！: PRINT 


"でフ" ン ，イ レフ" ン'' 


し OCATE 


31， 


4 


： CO し OR 




SPRINT 


"11：/" " 


し OCATE 


22， 


6 


： CO し OR 




SPRINT 


"シ丁 モノ'' 


し OCATE 


28， 


6 


： CO し OR 


6 


： PRINT 


"円'' 


し OCATE 


7i 


10 


'-CO し OR 




-PRINT 


" ケイ t" イン'' 



ゲームの 説明 を 表示 



し OCATE Oi 16 SCO し OR 6 

PRINT "r-«<CAST 1 「<<<KEY— 

FOR ェニ 1 TO 6 

PRINT "| i I 

NEXT 

PRINT '" 1 L 



ワク を P R 



CO し OR 7 






し OCATE 


32 


17 


： PRINT 


し OCATE 


32 


IS 


"-PRINT 


し OCATE 


32 


19 


SPRINT 


し OCATE 


21 


20 


SPRINT 


LOCATE 


21 


21 


SPRINT 


し OCATE 


21 


22 


SPRINT 



SYMBOL (:30*16，21ぉ 三: 

SYMBOL (36*16 7 21*8 
SYMBO し （33*16， 1: 三 三: 

SYMBOL (:33*16に:1*:三： 



i 1 i — i i — I ( — i 

； SPACE! I I I i I I 
i i i i i i i i 



，CHR$(:29) 9 2»1，2 
, CHR$(2S) ？ 2, 1^2 
, CHR$(30) ,2,1,2 
>CHR$(31) ，2，1，2 



- 操作 を 説明 



CO し OR 7 
LOCATE 4 9 13 
し OCATE 4, 19 
し OCATE 4,20 

CO し OR 2 
し OCATE 4i21 

CO し OR 7 
し OCATE 



： PRINT 
： PRINT 
:PRINT 



： PRINT 



" 0 
"Hi> 



て 卜- 



<0 " 
- ケィじ イン」 



- 登場人物 を 説明 



24 ： PRINT 
D*=" SHOPLIFTER " 
WHI し E INKEY$<>"s" 



PUSH ONLY 匚 SH KEY 
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8540 

S550 
S560 

8570 
-S5S0 
8590 
S6D0 
S61D 
- S620 
8630 
•8640, 
S650 
S660 
8670 
86S0 
S690 
8700 
8710 
S720 
8730 



D*=RIGHT$ CD$ ? 11) + し EFT$ (D$i 1 :) 
し OCATE 14,0 =C0 し OR 7 = PRINT D$ 
R=RND(:1:) 

WEND 



- キー入力 まち 



FOR ェ =1 TO 50 

BEEP 1 :BEEP □ 
NEXT 

し OCATE 0,2A 

FOR 1=1 TO 25 

PRINT 
NEXT 



ビー 



- 画面 をキ レイに しちやう 



RETURN 



REM 
REM 
REM 



FORESIGHT PLANNING SECTION 
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10 月 28 曰 （木） はれ 

え 一と、 どうにか 『おねつ』 がさが つたので、 はるみ は あしたか 
ら 『がっこう/』 へいかれ ま 一す。 よかった あ, 
ほんと、 ふしぎ 7 

だって、 『がっこう』 へいって ると き は、 『ああ、 おやすみした 
いな ぁダ』 つて はるみ 思う けど、 ほんと に 『おやすみ』 しちやう と、 
もう 『がっこう』 がな つかし < なつち やうんだ もん' 

そういえば、 きょう 『ユキ ヒロさん』 が 『丁 V』 にで てたん で、 
はるみ 『ビック u』 しちやい ました。 

『おひる』 にやって る 『わらっていい とも,』 つてい う 番組 を、 
『ポケ ーア』 つてみ てた の。 

そしたら、 『テレホン • ショッキング』 つてい う コーナーで 『ュ 
キ ヒロさん』 がで てきたん で、 はるみ 『ド キドキ .7』 
やっぱり、 『ユキ ヒロさん』 は 『カツ コ イイ,』 です。 

それから、 はるみが 『中学 1 年のと き』 に 買った 『ビー 卜 ルス』 

の 『LET I T BE』 を ひさしぶりにき きました。 
この 『LP』 から、 はるみの 『大切な 思いで』 が あふれで ちゃい 

ました。 
どんな 思いで …- 。 

それ は、 いま 思いだ しても、 もう 『かお』 が 『まっか 7』 になつ 
て、 『しんぞう』 が 『ド キド キ,』 しちやい ます。 

もう、 はずかしい〃 
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CHINA SYNDROME 〈チャイナ 'シン ドロ一 厶〉 



「チャイナ 'シン ドローム」 と は、 原子力発電所の 故障 または 操作 ミ ス 
によ つて 炉心 部が 過熱 状態と な り 、 溶けた ゥラ ンが 巨大な エネルギーの 塊 
となって 原子炉の みならず 地球 を も 突き抜けて しまう という 現在 想定で き 
る 原子力発電所 による 最大 級の 事故の こ と 。 

( 『現代科学 用語 事典』 より 抜粋） 

• あそび かた 

RUN すると 『画面』 に は 『ゲームの 説明』 が PR I NT され るん てす。 
二の 『ゲームの 説明』 をよ一 く 読んで から 『小文字の s』 を タイプす る 

と、 ゲームが 始まつ ちゃって 『画面』 は 写真 0 みたい になり ま 一す ッ。 

『画面』 の 『上の ほう』 にある r きいろ』 の 〈=〉 は 『原子炉の パイプ』 
『下の ほう』 にある 『みどりいろ』 の ぐ〉 は 『パイプの 部品』 、 それ か 

らく 〉 は 『ロボット』 、く 口〉 は 『力べ』 です。 
ゲーム 内容 は、 『原子力発電所』 で 『ロボ ッ ト』 を 操作して 『パイプ』 

の 二 われた 所に 『部品』 を はめ 二んで なおしち やうって いうの なの。 
でも、 『レーザ一』 に やられち やうと 『ゲーム 才 一バー 7』 です。 
さて、 ゲームが 始まつ ちゃうと、 ちゃ あんと つながつ てた 『パイプ』 の 

一部が こわれち やい ます。 
そうな つたら、 『下の ほう』 にある 『パイプの 部品』 を 『ロボット』 を 

使って 押して 運んで いって 『こわれち やった 所』 に、 はめこめば スコアに 

『2000 点』 プラスされ るんで す。 

こうやって 『12 回』 修理して 『メーター』 がう えまで あがれば、 地球の 
危機 はす く われ るんで 一す。 

でも 『レーザ一』 が 攻撃して くるから、 そうかん たんに 『任務 完了 7』 
つて わけに はいかな いの。 タイ ヘン/ 

この 『レーザ一』 は、 発射す る 少し 前に 『発射す る 列』 の 『レーザ 一砲』 
く〉 またはく〉 の 色が 『みどりいろ』 になって、 それから 発射す るよう に 
なって るから、 『レーザ一 砲』 の 色が 『みどりいろ』 になったら、 すぐに 
よけて ね。 
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CHINA SYNDROME 



卜 写真 O ゲームの 説明で 一す。 寺 写真 0 『部品』 を 運んで るの。 

き キー 操作 園 



ほ 

REPLAY B 



B 

D B 
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o プログラム リ ス卜 



10 

20 

30 

40 

50 

60 

70 

30 

90 

100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

2S0 

♦290 
300 
310 

-320 
330 
340 
350 
360 

； 370 
3S0 
390 

-400 
410 
420 
430 
440 
450 
460 
470 
4S0 
490 
500 
510 
520 
530 



-R E M 文 



- 初期設定 



REM 

REM *** 

REM <CHINA SYNDROME> *** 

REM *** 

REM By *** 

REM *** HARUMI TAKAHASHI *** 
REM *** 

REM 
DEFINT A-Z 

WIDTH 40,25 s CONSOLE 0 , 25 , □ , □ 

CO し OR 7，0 :PRINT CHR$(12) ； 

H-D 

GOSUB SOOCD —ゲームの 説明 をし ちゃう も 一ん, 
S=0 -2X=19 ： Y-23 ： M=Q き □ 5 し =0 :0V£R=0 —変数の 設定 

REM ― —- ― PRINT CRT SUB 一- -" -" 

COLOR 7,Q ':PRINT CHR$a2) ； *~ 一画 面をキ レイに ァ 

PRINTUS1NG "I 二!: SCORE 0] <SYNDR0ME2> L.;:MAX ?H 

CO し OR r 5 
PRINT " r" 十 STRING$d, 



FOR 1=2 TO 19 

LOCATE 1,1 SPRINT 
し 0CATE 37,1 ： PRINT 

NEXT 



PRINT 
PRINT 



l -t-"+STR1IMG$C33, 
r J "+BTRING$C33 7 



FOR 1=22 TO 23 

LOCATE 1， ェ ： PRINT 
LOCATE 37 ，ェ s PRINT 

NEXT 



-" :) + ''— " 
") + ,,L n " 



PRINT 



- ワク を 描い ちゃおう〃 



し 0CATE 2,2 = C0 し 0R 6 
PRINT "J" ； =C0 し 0R3 =PRINT 

し 0CATE 34 i 2 = CO し OR 4 
PRINT "l" ； =C0 し 0R3 ： PRINT 



'•CO し OR^t ： PRINT 
:C0 し 0R<b ： PRINT" 



しェ NEC 



2)-C33i 2) iCHR$C224) ,6 



しェ NEC 1 ：) - C 0,24) ,CHR$C 45) 

しェ NE(:38 ? 1)-(3S 9 24) ,CHR$C 45) 



ノ、 ィフを P R I NT 
-メ一 ター を P R I NT/ 
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CHINA SYNDROME 



； 540 

550 
-560 

570 
' 580 

590 

600 

610 

620 

630 
-64(3 

650 

660 

670 
- 680 

690 
，700 

71i:) 

720 

730 

74D 

760 
770 
7S0 
790 
800 
810 
S2D ' 

loac) 

1010 
ト 1020 
103G 
1GAG 
1050 
1060 
1070 
1D3C3 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 



FOR 1=5 
しェ NEC 
NEXT 



TO IS STEP 3 
2， ェ:) 一 （361 ェ:） ， ' 



- 力べ をつ くつち やえ ア 



FOR 1-3 TO 18 STEP 3 
COLOR 2 
し OCATE 1， ェ SPRINT 

LOCATE 37". ： PRINT 

し OCATE! l^H-i -PRINT 
LOCATE 37，ェ+1 ： PRINT 
NEXT 



LINE( 4 ? 22) -(34,22) , CHR*(224) 



- レーザー 砲 を P R 



- 部品 を PRINT/ 



FOR 1^ TO IE: STEP 3 

し OCATE INT ( RND (: 1 ) *33 ) +3 ， 
NEXT 



： PRINT 



- 出入口 をつ く るの 



CO し OR 5 

し OCATE II\T「（RND(:i:)*:31:)+3，2Cl ■•PRINT 



FOR TO 30 

BEEP 'J. :BEEP □ 
NEXT 



- ドア をつ く るんで 一す 



BEEP 1 

し OCATE X - 
BEEP □ 



SCO し OR 7 ： PRINT 



-ロボ ッ トを P R 



REM 



MAIN LOOP 





： VY=0 




C29) 


THEN 


VX=-1 


(28) 


THEN 


VX= i 


(30) 


THEN 


< 
ll 


(.31) 


THEN 


VY= 1 



WHILE OVERDO 

HINKEY 本 ： V： 
IF I$=CHR$ 
IF i$=CHR* 
IF I$=CHR$ 
IF I$=CHR$ 



し OCATE X , Y ： PRINT " " 

X=X+VX 
Y=Y+VY 

P=SCR£EN (:X，Y:) 

IF P=224 THEN GOSUB 
IF P> 32 THEN GOSUB 



: をお した 4 ? 
、 をお した？ 
い をお した 4 ? 

つ をお した 



5000 
5200 



】 ポッ 卜 をけ すんだ あ- 



-部品 をお すのお？ 
-動 いちや タメ ？ 



CO し OR 7 
し OCATE X，Y 



'.PRINT 



IF M=D THEN GOSUB 5400 

P=SCREENCMr2) 

IF P=224 THEN GOSUB 5600 



】 ポット を P R I NT, 

、ィフ が こわれて なかったら こわす. 1 
—— ハイ フを なおした？ 



IF N>8 -し THEN GOSUB 5900 
IF N= D THEN GOSUB 6100 



- レーザー 発射 だ 



1290 
1300 
1310 
1320 
1330 
1340 

- 1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
5000 
5010 
5020 
5030 
5040 
5050 
5060 
5070 
5030 
5090 
5100 
5110 
5120 
5200 
5210 

づ 220 
5230 
5240 
5250 
5260 
5270 
52S0 
5290 
5300 
5400 
5410 
5420 
5430 

5450 
5460 
5470 
548D 
5490 
5500 

5520 
5530 
55A0 
5550 
5560 
5570 



P=SCREEN(X ? Y:) 

IF P<>135 THEN OVER: 

IF N>0 THEN N=N+1 

WEND 



IF OVER-^1 THEN GOSUB 6700 
IF 0VER=2 THEN GOSUB 6300 



GOSUB 7000 
：：：：：：：：：： GOTO ISO ： ： ： ： ： 

rem - push b し ock sub 
p=screencx+vx,y+vy:) 



- やられた 4 ? 



- ゲーム オーバ一 
- 成功 I 



IF P>32 THEN RETURN .」 

BEEP i 

LOCATE X+VXiY+VY : CO し OR 
BEEP 0 

P=32 



- 押す 二と できる？ 



： PRINT CHR$C224) 



部品 を P R I N 



REM 



： RETURN ：：：：：：：：:： 

STOP THEN ROBOT SUB 



FOR 1=1 TO 20 

BEEP 1 :BEEP 0 
NEXT 



X=X-VX 
Y=Y-VY 



ビー J 



] ポ ッ 卜 、 



REM 



: RETURN ：：：：：：： 

BREAK PIPE SUB - 



BEEP 1 

M=INT(RNDCi:)*29)+5 
BEEP □ 



FOR 1=1 TO 20 

し OCATE M?2 =C0 し OR INT C RND ( 1 ：) *7 ) + 1 
BEEP 1 

PRINT CHR$ (228+1 MOD A) 
BEEP □ 

NEXT 

LOCATE M，2 ： PRINT " " 
：：：：：：：：：： RETURN ：：：：:::::: 



-ニ われる 所 をき めち > 



-ニ われる 
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CHINA SYNDROME 



5600 REM SCORE ADD SUB - 

5610 ' 
5620 BEEP 1 

5630 LOCATE M，2 s CO し OR 6 ： PRINT CHR$(:22^: い 
5640 BEEP □ 
5650 ' 

5660 FOR i=24-S/1000 TO 23-S/1000 STEP - 1 
5670 FOR J = 12: 三： TO 135 
5680 ' 

5690 BEEP 1 

5700 LOCATE 0,1 = CO し OR 2 = PRINT CHR$(:J:)5 

5710 BEEP □ 

5720 LOCATE 3: 三:， ェ ： COLOR 2 ： PRINT CHR$(J ) ； 

5730 ' 
- 3740 NEXT 
- 5750 NEXT 

576D ' 

5 770 ：： し =INT (: S/^OC3C3 ) - M-0 

5780 •' 

5790 し OCATE 3,0 ：： CO し OR 7 : PRINTUSING "#####"；! 
5S00 ' 

5810 IF' S::24000 THEN 0VER==2 *— 
5820 ' 

5S3Q s s にに にに RETURN に s にに に 
5840 ' ' 

5900 REM —- - - FIRE BEAM SUB - 

5910 ' 

5920 BEEP 1 

5930 LINEC 2 ， Y 1 ：) — (: 36 ， Y 1 ) 9 CHR$ ( 1^2 :) ， 4 
5940 BEEP 0 
5950 ' 

5960 LINEC 2,Y1:) - (:3<S，Y1 ハ CHfm 32: い 7 
5970 ' 
5980 N=0 
5990 ' 

6000 し OCATE 1,Y1 = CO し OR 2 5 PRINT "> 
6010 LOCATE 37 , Y 1 : CO し OR 2 ： PRINT "< 
6020 ' 

603D ：：：：：：：： s ： RETURN ：：：：：：：：：： 
6040 ' 

6100 REM SET BEAM BUB - 

6110 ' 

6120 R=INT (: RND (: 1 ：) * C 12 —し:） ) 
6130 IF R>0 THEN RETURN 
6170 ' 

6 ISO Y1 = INT (: RND (: 1 :) *6+ 1 :) *3+INT ( RND (: 1 ：) 普 2:) - 
6190 ' 

6200 LOCATE 1，Y1 = CO し OR 4 ： PRINT "> 
6210 LOCATE 37, Yl = CO し OR 4 ： PRINT M < 
6220 ' 
6230 N=l 
6240 ' 

6250 ：：：：：：：：：： RETURN にに にに に 
6260 ' 

6300 REM YOU SCCEED SUB 

6310 ' 

6320 LINEC 5, 2) -(33,2) ,CHR$C224) »2 



ハイ フが なおる 



- ターが あがる 



-スコア を P R I N 



成功 J 



-レーザー 発射/ 
- レーザー をけ す 

-ザ一 砲の 色 を もどす 



- 発射す る 所 をき めちゃう 
-レ一 ザ一 砲の 色 を かえる 



バイ ブの色 を かえる 



6330 
6340 
6350 
6360 
6370 
6380 
6390 
6400 
6410 

-6420 
6430 
64A0 
6450 
6460 
6470 
6480 
6490 
6500 
6510 
6520 
6530 
6540 
6550 
6560 
6570 
65S0 
6590 
6600 
6610 
6700 
6710 
6720 
6730 
6740 
6750 

-6760 
6770 
6730 
6790 
6S00 
6810 
6820 
683D 
6840 
6850 
6860 
6S70 
6S8Q 
6890 
6900 
6910 
7000 
7010 
7020 
7030 
7040 
7050 



FOR 



:100 TO □ STEP -2 



BEEP 1 
FOR J = 

BEEP 0 
FOR J = 



TO 



TO 



:NEXT 



:NEXT 



NEXT 



しェ NEC 
し INEC 



- サウンド 



2：)- 
3：)- 



し OCATE 7,4 
し OCATE 11,4 

CO し OR 5 
し OCATE 4, 7 
し OCATE ベ, 9 
LOCATE 4, 11 
し OCATE 4, 13 
し OCATE 4, 15 

CO し OR 7 
LOCATE 4, IS 



(36,20) 
(35 ? 19) 

二 CO し OR ： 
： CO し OR 



，ん B 
，7»BF 



- ワク をつ く つち やうんだ あ 7 



2 ： PRINT STRINGS (25, " 顯'' ：） 
7 ： PRINT "| YOU SUCCEED 



SPRINT " ァ： T タ 八， r ROBOT」 ラ ソゥサ シテ r ケ、、 ：ノ シ" 
： PRINT リ 3 フ /V リテ" ：ノシ 3」 ノ 千千 ラ スフ ゥコ卜 力" T" " 
SPRINT •' 千 7 シタ！ ！ " 

二 PRINT " ォ カク、、 テ"， r CHINA«SYNDROME」 二 す ラ' 1 
SPRINT "7" 二 スミ マシタ 《 " 



： PRINT PUSH ONLY 匚 SZ1 KEY ！ 

a ：：：：：： a RETURN ：::::::::: 

REM GAME OVER SUB 



FOR 1=135 TO 128 STEP 一 1 
BEEP 1 

LOCATE X,Y 2 CO し OR 7 ： PRINT CHR*CI) 
BEEP 0 
NEXT 

し OCATE X,Y SPRINT " " ― 



-'; '錢. ひ 



口 ポ '. 



をけ す 



CO し OR 4 
し OCATE 5, 7 
し OCATE 5， S 
し OCATE 5, 9 



-PRINT 
： PRINT 
： PRINT 



I I H I M I H 

I -i— I 1 I 1 I I J I J_ L_l 



CO し OR 7 
し OCATE 5,11 



しェ NEC 3i 



REM 



PRINT 
>)-(：36, 13) 

RETURN ：：：：：： 

WAIT INPUT SUB 



***** PUSH ONLY 匸 SH KEY! 
"画"， 6，B< ~ —ワク を PR I NT. ぴ 



WHI し E INKEY$<>"s 

R=RNDCi:> 
WEND 



： 一入 力まち 



CHINA SYNDROME 



7060 
7070 
7080 
7090 
7100 

マ 110 
7120 

-7130 
7140 
7150 
7160 

saoo 

SO 10 
S020 
： 三: 0Z50 
S040 

： 三 :05a 

8060 
S070 
S08D 
S090 

siao 

SI 10 
S120 
3130 
3140 
8150 
S160 
81 70 
8180 
： 三: 190 
S200 
8210 
8220 
8230 
8240 

-3250 
S260 

-: 3270 
S280 
： 三: 290 
S300 
S3 10 
8320 
S330 
8340 
3350 
8360 
8370 
8380 
8390 
8400 
8410 
8420 
8430 

S45D 



IF S>H THEN H=S 

PRINT CHR*C7) ； 

し OCATE 0 ? 24 

FOR 1=1 TO 25 

PRINT 
NEXT 



'スコア 登録.' 



- 画面 をキ レイに す るんだ ゾ, 



REM 



： RETURN ：：：：：：：：：： 

DEMONSTRATION SUB 



LOCATE 7,0 ： COLOR 1 ： PRINT +STRING$ ( 22: ， "画" ） + "に/ " 

LOCATE 12，〔〕 = CO し OR 7 ： PRINT " CHINA ■ SYNDROME " 
LOCATE 7, 1 SCO し OR 1 ： PRINT STRING* ( 25 , "~ n ) 



LOCATE 0i3 : CO し OR 5 



PRINT 
PRINT 
PRINT 
PRINT 
PRINT 



: PRINT 
： PRINT 
: PRINT 
： PRINT 
: PRINT 



コノ r GAME」 八， 「ケ、、ンシリ3フ八'リテ"：パ:ノ3」 テ、、 「レー 1 T' 
-」 ノ コゥ ケ" 千 'ラ ョケす 力" ラ コ 「？ レ？ ソ テル 「八 "ィフ。」 1 
「 ROBOT 」 ラ ソゥサ y-J ァォス マテイ ゥ "、、—し テ、、 ス o 
Z"j? ス , ylT ヮ f "ォ モシ □ ソゥ」 テ "シ 3? 
r-y/^'K コウ ィゥ 「ォ モシ □•、'！」 グ"一 厶 力、、 ノ テ" 



PRINT ： 


PRINT 


"午 チャウ 卜 




' ！ j ウレ シヮ ナツ チヤ ィ マス! ！ 


し OCATE 


!5， 




： CO し OR 


2 


PRINT 


"GAME" 


し OCATE 






： COLOR 




PRINT 


"ケ、、 ンシリ 3ク 八 1 リテ" ンシ 3" 


し OCATE 


35 1 




：! CO し OR 


3 


PRINT 


M レ一 1 r' " 


し OCATE 


0， 


6 


： CO し OR 


3 


PRINT 




し OCATE 


30， 


6 


s CO し OR 


6 


PRINT 


"/、" -、' フ" " 


し OCATE 


2» 


8 


： CO し OR 




PRINT 


"ROBOT" 


し OCATE 


10. 


1.0 


SCO し OR 


3 


PRINT 


" ォ モシ 0ソ^" 


し OCATE 


7， 




： CO し OR 


6 


PRINT 


= 

!"T 

Ui 



ゲームの 説明 



LOCATE 0， 1<S SCO し OR 6 

PRINT " r— «<CAST 

FOR 1=1 TO 6 
PRINT "| 
NEXT 

PRINT " 1 



「<<<KEY 



ワク を P R 



CO し OR 7 
し OCATE 32， 17 
し OCATE 
し OCATE 
し OCATE 
LOCATE 
し OCATE 



32, IS 
32， 19 
21i20 
21，21 
•21， 22 



： PRINT 
-PRINT 
： PRINT 
： PRINT 
： PRINT 
： PRINT 



i i i i i i 



SYMBOL (:30"6，21*:3) ,CHR$C29) ，2， 1，2 

SYMBOL (36*16 9 21*8) ,CHR*(28) ，2， 1，2 
SYMBO し （33长16， 18并8) iCHR*C30) ，2， 1，2 

SYMBOL (:33*16，21*8) iCHR*(31) ,2， 1，2 



- キー 操作 を 説明 



し OCATE 2,18 
CO し OR 7 ： PRINT 
CO し OR 7 ： PRINT 



• ROBOT - 
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3460 
S470 
8430 
3490 
S500 
S510 
3520 
S530 
S54D 
3550 
8560 
3570 
3530 
3590 

， 8600 
S610 
S620 
3630 
S640 
S650 
3660 

- S670 
86S0 
3690 
3700 

- S710 
8720 
3730 
874Q 
8750 

- 8760 
： 三: 770 
8780 
： 三: 790 
SS00 
： 三:: 三: 10 
： 三:: 三 :20 



し 0CATE 2， 20 
CO し OR 6 ".PRINT 
CO し OR 7 ： PR IN 丁 

し OCATE 2,22 
CO し OR 4 ： PRINT 
CO し OR 7 =PRINT 



_ 八 1 M7。 



•7"t ン」 



- 登場人物 を 説明 



CO し OR 7 

し OCATE 5,24 ： PRINT 长 PUSH ON し Y 匸 KEY 



D$=" CHINA -SYNDROME " 

WHILE INK£Y$<> M s" 

D*=RIGHT$(D$? 1!5)+LEFT$(:D$ 9 1.) 
LOCATE 12 iO : CO し OR 7 ： PRINT 



R=RNDCi") 
WEND 

FOR 1=1 TO 50 

BEEP 1 :BEEP 0 
NEXT 

し OCATE 0i24 

FOR J>i TO 25 

PRINT 
NEXT 



ニー 入力 まち 



'ビー.' 



- 画面 を キ レイに す るんだ よ ！ 



RETURN 



REM ============================ 

REM FORESIGHT PLANNING SECTION 
REM ============================ 




10 月 29 曰 （金） ちょつ びり 『< もり』 

きょう、 5 時間 目の 『すうが <』 のとき、 はるみの 『クラス』 で 
『たいへん 7』 な ことが おきた の。 

『いすみ、 いずみの ス カー 卜に ついて るの、 それ クモじ やない の』 

な 一ん と、 『いすみ』 のス カー 卜に、 『10cm』 ぐらい あるす つ ご 
ぐお 一き な 『クモ ぐん』 がぐ つついち やって たんです。 

それ も、 だんだん、 ス カー 卜の 『うえの ほう』 に はい あがって ぐ 
るんだ から、 ちう 『恐怖,』 

それで、 『いずみ』 は、 はんぶん 泣きながら、 『ちょ、 ちょっと 
お、 だれか クモ とってよ ぉァ』 つてい つたんだ けど、 『おんなのこ』 
のなかに は 『クモ ぐん』 を とれる ひとなん かいない でしよ。 

しかたな <、 『いすみ』 は 『ス カー 卜』 を 『パ タパ タァ』 して、 

『クモ ぐん』 をと ろうとし たの。 

『いすみ』 がいつ しょう けんめい スカ一 卜 を 『バタ バタ 7』 した 
から、 『クモ < ん』 は、 ス カー 卜の すその ほうまでお りてき たんで 
す。 ョ カツ タ/ 

ところが ア このと きに 『たいへんな こと』 がお きち やった の。 
なんと 『クモ ぐん』 は、 『ス カー 卜の なか』 に はいつち やつたん 

です。 たいへん〃 
だから、 『いすみ』 が 『キヤ 一, ゃダ ゃダ だ』 つて さけんで、 
『手足 を バタ バタ,』 させた から、 『ヮモ くん』 は 『ゆか』 におつ 

こちち やった けど、 『いすみ』 は、 めちゃくちゃ 泣いて 『おうち』 

に 帰つ ちゃい ました。 かわい そ 一, 

全国の 『クモ くん』 r ぜったいに 『おんなのこ』 のス カー 卜に 
はぐつつ かないよう にしましょう〃 
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16 はやうち マック 



この 『ゲーム』 は、 『画面』 じゅうに いっぱ 一い ある 〈G> を、 ただ ひ 
た すら 時間 内に 射ち ま く るって いう カン タンな ゲーム なんです。 
はるみ は、 その 『カン タン ア』 なと こ 気に いって るんだ けど •••••• 。 

たぶん、 『ああ、 カン タンそう だな あ 一,』 つて 思つ ちゃう かもしれ な 
いけど、 コレ いがいと 厶ッカ シィん です ッ〃 * な、 なんと ア 
「1000 点』 取る の は 『タイへ ンア』 だと、 はるみ 思います。 
(自分が できない から、 みなさん も 『できない〃』 つて 勝手に 思つ ちゃ 
います） 

1 度で いいから 『PLAY』 してみ てくだ さいね。 おねがい, 



RUN しちやう と 『画面』 に は、 写真 O みたく 『ゲームの 説明』 が PR 
I NT されち やい ます。 

二の 『ゲームの 説明』 をよ 一く 読んで から 『小文字の s』 を タイプす る 
と、 ゲームが 始まって 『画面』 は 写真 0 みたくな るんで す。 さすが あ/ 



は 『障害物』 で、 『下の ほう』 のく〉 は 『TIM ヒの メータ一』 になつ 
てるんで す。 

さて 『ゲーム 内容』 は、 かぎられた 時間のう ちに できるだけ く〉 をう 
つつ,. ていう のな の。 かんたん でしよ？ 
もしも、 うまくく 〉 に 当たる と スコアに 『10 点』 プラス されます。 

この 『ゲ一 厶』 は、 ただ 『はちゃめちゃ,』 に 射って る だけ じゃあ、 な 
かな か 思う よ う に スコアが ふえて く れな いの。 

だから、 く 〉 がいつ ぱい あると こに 『すばやく,』 移動して、 連続し 
て 射つ ようにし なくち やい けな いんです。 

そんなと ころが、 ちょっぴり 『才 モシ 口い ア』 ゲームで一 す 7 




あそび かた 



『画面』 に、 たくさん 



された 〈G〉 は 『ポ イン 卜』、 く〉 
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THE GUNMAN 



スペース 




寺 写真 O ゲームの 説明 だ もん 7 寺 写真 0 ゲーム スタートし ちゃった〃 

• キー 操作 

REPLAY 4- B B B 

発射〃 



寺^ 真 © う 一ん、 がんばつ てる 一, 
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o プログラム リスト 



□ REM 

□ REM *** 

D REM *** « THE GUNMAN » *** 

□ REM *** 

□ REM *** 

D REM 普 ♦ 普 HARUMI TAKAHASHI *** 
0 REM *** 

□ REM 
0 REM 



-R E M 文 



□□ 
10 

20 
30 
40 
150 
160 
170 
ISO 
190 
200 
210 
220 
230 
240 
250 
260 
265 
270 
, 230 



DEFINT A-Z 
WIDTH 40,25 
CO し OR 7,0 

GOSUB 8000 



:CONSO し E Ch25，0，0 
: PRINT CHR$(12) ； 



- 初期設定 



=□ ： X::19 ： Y=13 ： C*^'H " 



REM 



- ゲームの 説明 をし ち 
変数 を 設定 



うんだ も 一ん 



COLOR 7,0 ： PRINT CHR$C12) ； 



PRINTUSING " 匚 2 SCORE 



01 



GUNMAN 



しェ NEC 07 1)- (38,23) , "h-'S5 ? B 
LINE( 0i24)-C38i24) ,CHR*( 142) i3 



- ター を P R 



FOR 1=1 TO 400 

LOCATE INT (: RNO < 1 :) *37+l) ， INT C RND C 1 ) *21+2) 
'CO し OR 6 i PRINT "G" 
NEXT 



FOR 1=1 TO 20D 

LOCATE INTCRND(l)*37+i:) 



290 
30D 
31D 
320 
330 
340 
350 
360 
370 
380 
390 
400 

420 
430 
440 ' 
1000 REM 
1010 ' 

1020 FOR T=0 TO 380 
1030 ' 

1040 ェ $=INKEY$ 
1050 IF I$=CHR$C29 
1060 IF I$=CHR$(:2: 三: 
1070 IF I$=CHR$(30 



ホイ ： 



を P R I 



INTCRNDC 1)*21+2：) 



CO し OR f 

NEXT 

CO し OR 7 
LOCATE X，Y 

BEEP 1 

FOR I 
BEEP 0 



： PRINT 



PRINT C$ 



TO 30 =NEXT 



障害物 を P R I N 



'クを 表示 



MA J 



.OOP 



THEN VX= 
THEN VX= 
THEN VY= 



： VY=0 :C$='H " 
： VY=0 '-C$='， 卜，' 
:VX=0 :C$=" 上'' 



をお したの？ 
をお したの？ 
をお したの？ 



1 2 3 >t 5 6 7 CO 9 1 1 1 1 1 
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THE GUNMAN 



1 ひ so 

1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
11£：0 
1190 
1200 
1210 
1220 
1225 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
5D00 
50 10 
5020 
5030 

5050 
5060 
5080 
5090 
5100 
511D 
5120 
5130 
5140 
5150 
5160 
5170 
5 ISO 
5190 
5200 
5205 
5210 
5220 
5230 
5240 
5250 
5260 
5270 
5280 
5290 
5300 
5310 
5400 



IF I$=CHR$(31) THEN VY= 1 ： VX=0 :C$=''t'' 

IF ェ$=" " THEN GOSUB 5000 

LOCATE X,Y SPRINT " " 

X=X+VX 
Y=Y+VY 



P=SCREEN CX , Y) 

IF P>32 THEN GOSUB 5500 



CO し OR 7 
LOCATE X,Y SPRINT C$ 



-動い ちゃい けない の？ 

- マック を PR I NT しちや- 



C0 し OR 1 

LOCATE T/10，24 ： PRINT CHR$( 142) 
NEXT 

GOSUB 7000 



メータ一 を P R 



- ゲ- 



： GOTO 180 ： ： ： 

SHOOTING SUB 



REM 

X' 丄ビ X ： Y1^=Y 
OVERDO 



WHILE OVER-C.) 

X1=X1+VX : Y1=Y1+VY 
F-SCREENCX1 , YD 

IF P>32 THEN 0VER:=1 

WEND 



CO し OR 2 
LOCATE XI, Yl ： PRINT "jfi" 



-何 かが 見つかる ま で 画面 を しらべる 



-当たった と 二が ひかる 



IF P=71 THEN GOSUB 5200 
IF P:=43 THEN GOSUB 5400 



- <G> にあた つたの？ 
- < + > にあた つたの？ 



REM 

S=S+10 



： RETURN にに 二！! 

SCORE ADD SUB 



CO し OR 7 

LOCATE 8,0 ： PRINTUSING "#####" 5S— 



BEEP 1 

し OCATE XI, Yl SPRINT 
BEEP □ 



- スコア を 表示 



(G> をけ しちやう f 



REM 



RETURN ：：：：：：：： 

CRASH POINT SUB 
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5410 
5420 
5430 
5450 
5460 
5470 
5500 
5510 
5520 
5530 
5540 
5560 
5570 
7000 
7010 
7020 
7030 
7C340 
7050 
7060 
7070 
70SG 
709Q 
7100 
7110 
7120 
7130 
7140 
7150 
7160 
7170 
7180 
7190 
7200 
7210 
7220 
7230 
7240 
7250 
7260 
7270 
7280 
7290 
3000 
SO 10 
8020 
8030 
8040 
8050 
S060 
S070 
8080 
8090 
8100 
8110 
3120 
8130 



BEEP 1 :BEEP 0 

LOCATE XliYl SCO し OR 5 ： PRINT 

：：：：：：：：：： RETURN ：：：：：：：：：： 

REM 



を 元のと おり P R 



x=x-vx 

Y=Y-VY- 



-動 くの やめち やうんだ から. 



：：：：：：：：：： RETURN ：：：：：：：：：： 

REM - GAME OVER SUB - 

FOR ェ =1 TO 30 

l-OCATE: X t Y = CO し OR INT(:RND<:1:)*7+1:) 
BEEP 1 

PRINT CHR$C228+I MOD 4) 
BEEP □ 



NEXT 

CO し OR 6 
し 0 GATE 5i 
LOCATE 5i 
し OCATE 5t 

COLOR 7 
し OCATE 



キラ キラと 爆発〃 



11 



： PRINT 
： PRINT 
： PRINT 



I I 」_ 上上 L_ 



H I II I H hr 1 

_! I I I I I J I J_ I— J 



: PRINT PUSH ONLY LSI KEY : 

ゲーム ォ- 



, C , B 



WHI し E INKEY$<> M 5" 

C=INTCRNDCl)*7+i:) 
しェ NEC 3 ? 5>-C36, 13> , 

WEND 

IF S>H THEN H=S 
：：：：：：：：：： RETURN ：：：：：：：： 

REM - DEMONSTRAION SUB 



-入 力まち 



、イス コア 登録 



し OCATE 8，0 
し OCATE 14,0 
し OCATE 8，1 

し OCATE 0,3 

PRINT ： PRINT 

PRINT ： PRINT 

PRINT ： PRINT 

PRINT ： PRINT 

PRINT ： PRINT 

PRINT ： PRINT 



： COLOR 1 : PRINT "/JH+STRING^ (20 ，•'■'，） + ' 'に/ ,, 
: CO し OR 7 ： PRINT " THE -GUNMAN " 
: CO し OR 1 ."PRINT STRING* C23, " -,, ) 

SCO し OR 5 

" II ノ 「GAME」 八， モウ タタ" t: タス ラ 「シ" カン ナイ」 二 タフ 
"サン <(5> ラ ゥ' リ マテイ ゥ カン タン T ケ" ー厶 すノ c 
" r 7 ァ， カン タン タ" 7 —！！」 'ソテ ォモ' ソ チサゥ 力 モシ レナ ィケ 卜" □ 
" レ イカ" ィ 卜 「厶' リカシ ィ！ 」 ィテ" スフ o 
" タフ "ン， 力 「1000 テン j コ t!T イン シ" サァ T イカ シラ 7 
" ォ t マ 力" アツ タラ PLAY シ テ5.テネ ！ ！ ォネ 力" ィ ！ 
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THE GUNMAN 



8140 
8150 
8160 
SI 70 
8180 
8190 
3200 
8210 
8220 
S230 
S240 
8250 
3260 
8270 
S2S0 
S29D 
S300 
S3 10 
S330 
S340 
8350 
8360 
8330 
S390 
S400 
3410 
S430 
8440 
S450 
8470 
8480 
3490 
:三:510 
8520 
8530 
8540 
S550 
3560 
S570 
8580 
S590 
£：600 
8620 
S630 
S650 
S670 
8680 
3690 
S700 
S710 
S720 
3730 
8740 
8750 
8760 
8770 
87S0 



し OCATE 






: CO し OR 




: PRINT 


"GAME" 




し OCATE 


27， 




： CO し OR 


3 


： PRINT 


"シ * カン ナイ" 




し OCATE 


4i 


6 


： CO し OR 


6 


： PRINT 


"G" 




し OCATE 


•2， 


： 三： 


： CO し OR 


2 


： PRINT 


" ァァ， カン タン タ" ァー！ 




し OCATE 


10， 


10 


= CO し OR 




： PRINT 


"厶' リカシ ィ ！ " 




し OCATE 


13， 


12 


= CO し OR 


6 


： PRINT 


"1000 テン'' 




し OCATE 


13, 


14 


SCO し OR 




： PRINT 


"P し AY" 





LOCATE 0， 16 = CO し OR 6 

PRINT " i— «<CAST 

FOR 1=1 TO 6 
PRINT "| 
NEXT 

PRINT 



-«<KEY 



ゲームの 説明 



- ワク を 描く 



21，21 
21，22 



CO し OR 7 
し OCATE 32,17 
し OCATE 32, 18 
し OCATE 32， 19 
し OCATE 21^20 
し OCATE 
し OCATE 
SYMBO し 
し 

SYMBO し 
SYMBOL 

し OCATE 
CO し OR 7 
CO し OR 7 

LOCATE 
CO し OR 6 
CO し OR 7 

し OCATE 
CO し OR 5 
CO し OR 7 



： PRINT 
： PRINT 
'•PRINT 
SPRINT 
： PRINT 
： PRINT 



"~1 



(：30*16 9 21*：3 
(36*16,21*3 
C33*16, 18-k-S 
(33*16,21*8 
2， 18 
PRINT 
PRINT 
2»20 
PRINT 
PRINT 
2， 22 
PRINT 
PRINT 



'G 



CHR$(29 
CHR*(2S 
CHR$C30 
CHR$(:31) 



I 1 L 1 ' 1 

，2i 1，2 
，2"，2 

,2， 1,2 



ニ 一 操作の 説明で 一す 



一力" ン マン- 



、 イン 卜 一 



_シ3 ゥカ" ィ. 



- 登場人物 だ もん ダ 
いい じ やない f 



CO し OR 7 

し OCATE 5,24 ： PRINT PUSH ON し Y 匸 S コ KEY 



D$= 



THE -GUNMAN 



WHI し E INKEY$<>"5" 

D$=RIGHT$(:D$， 11:)+ し EFT$(D$， 1:) 

し OCATE 14,0 SCO し OR 7 ： PRINT D$ 

R=RND( 1) 
WEND 



FOR 1=1 TO 50 

BEEP 1. :BEEP 0 
NEXT 



-入 力まち 



し OCATE 0^24 

FOR 1=1 TO 25 

PRINT 
NEXT 



- 画面 をキ レイ にしち やう 



RETURN ： ： ： 



135 



『マー ャ』 は、 みつばちの 『おんなの 二』。 

『みつばち』 のおし ごと は、 もつ ち ろん 『ミツ あつめ』 で、 『マー ャ』 
は 今日 はじめて この 『ミツ あつめ』 をす る ことにな つたんで す。 

だから 『マ一 ャ』 は、 おお はりきり ッ 7 - 

えと 『みつばち』 の 世界で は、 その 日 『いちばん〃』 たくさん 『ミツ』 
を あつめた 『ハチさん』 に は、 『女王 様』 から 『ごほうび』 が もらえる の。 

『マー ャ』 も 『ごほうび、 ほしいな あ/』 つて 思った けど、 はじめて 
『ミツ あつめ』 する 『マー ャ』 にはちよ つと 厶リ •••••• 。 

そ 二で 『マー ャ』 は、 『みつばち』 がいって はいけ ない 『ひみつの 花園』 
にいく ことにし たんです。 

二の 『花園』 に は、 『お 花』 がと つても たくさん あるけ ど、 コ ワイ 『く 
まんばち』 が 『なわばり』 を はって るから、 もう タイ ヘン〃 

さあ、 『マー ャ』 は 『ごほうび』 が もらえる かしら？ 

• あそび かた 

えと、 RUN すると 『ゲームの 説明』 力く I NT されち やい ました。 

この 『ゲームの 説明』 をよ一 く 読んで から 『小文字の s 』 を タイプす る 
と、 ゲームが 始まって 『画面』 は 写真 0 みたくな るんで す。 

『画面』 じゅうに 『いっぱい,』 ちらばつ てる 〈 •〉 は 『お 花』、 < > 
は 『毒のお 花』 で、 この 『毒のお 花』 にと まると 死ん じ やい ます。 

ゲームが 始まる と、 『くまん ばち』 く 〉 が 『マー ャ』 く-,!〉 をお いか 
けて くるから、 つかまつち やわない ように 『お 花の ミツ』 を 『時間 内 7』 に 
た く さん あつめち やえばい いの。 

でも、 『毒のお 花』 はたく さん あるし、 『くまん ばち』 は 『丁 IMEj 
がへ る ごとに 『はやく ァ』 なって きち やうから、 もう タイ ヘン〃 

だから、 『お 花の ミツ』 は、 はじめの うちに あつめと いちゃつて、 あと 
は 『く まんばち』 から、 とにかく 『にげまわる 7』 ようにし なく つち やう 
ま く いかない の。 

ちょつ と厶 ッカシ すぎる かしら？ 

でもで も、 そんなと こ 力く、 とっても 『おもしろい/』 ゲームです w 



HONEY BEE 
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o プログラム •'」 ス卜 



REM 
REM 

REM *** « HONEY BEE » 
REM * 普 ♦ 
REM や 

REM *** HARUMI TAKAHASHI *** 
REM 
REM 
REM 
DEFINT A-Z 

WIDTH 40 » 25 ■'CONSOLE □ 1 25 1 □ i □ 
CO し OR 7,0 ： PRINT CHR$C12) ； 



-R E M 文 



- 初期設定 



H=0 

GOSUB 8000 — 

S=Q :T=0 :X=19 :Y=13 :M=D :C$='H " :OVER=0 

REM - PRINT CRT SUB - 



- 変数の 設定 



CO し OR 7，0 ： PRINT CHR$(:12:)5 — 

PRINTUSING " 匸 s SCORE D3 <HON£Y BEE> 匚 =MAX 5H 



しェ NEC 0, 1:) 一 (：ふ 三:， 23:) ,CHR$(:255:) ,7,B 
しェ NEC 0,24)-(：33»24：) , CHR$C142.) ,2 



- メーター を P 



r 描く 
i I N 



FOR 1=1 TO 150 

LOCATE INT (: RND (: 1 :) *37+ 1 :) , INT (: RND (: 1 :) *21+2 :) 
COLOR INTCRND(1)*6+1) ： PRINT "+" 

NEXT 

FOR 1=1 TO 20 

LOCATE INT ( RND CI ) *37+ 1 ) , INT (： RND C 1 ) *21+2 ：) 
COLOR INTCRNDCi:)*6+i:) s PRINT 

NEXT 



-ぉ 花が いっぱい 



- 毒の 花 も i 



) はい.' 



X1=INTCRNDC1)*37+1) 
Y 1=INT C RND ( 1 ) *22+2) 
Cl$=" 督'' 



-く まんばち の 位置 を 決定 



CO し OR 7 
し OCATE X, Y ： PRINT C$ 
LOCATE XI, Yl SPRINT Cl$ 



} REM 

) ' 

) WHI し E OVER=0 
) ' 

) IF M=0 THEN GOSUB 5000 
) IF M>0 THEN GOSUB 5600 



- マー ャ を P R I N T 
-く まんばち を P R I 



- マー ャ動 ける？ 
一 マ一 ャ動 けない？ 



□□□□□□□□ 

1234567 8 911111111 




□ □□□□□□□□□□□12 3456 



138 



HONEY BEE 



1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
5000 
5010 
5020 
5030 
5040 
5050 
5060 
3070 
50S0 
5090 
5100 
5110 
5120 
5130 
5140 
5150 
5160 
5170 
5180 
5190 
5200 
5210 
5220 
5300 
5310 
5320 
5330 
5340 
5350 
5360 
5370 

5390 
5400 
5410 
5420 
5430 

5450 
5500 



IF T MOD INTC6-T/100)=0 THEN GOSUB 5700 

時間い つ 



T=T+1 

IF T=380 THEN 0VER=2 



CO し OR 1 

LOCATE T/10,24 = PRINT CHR$(:1^2:)5 



GOSUB 5900 
WEND 



ばい 逃け' たかな？ 

メーター を P R I N 



IF 0VER=1 THEN GOSUB 7000 
IF 0VER=2 THEN GOSUB 6100 



ランダ 厶 にお 花 を P R 



- ゲ一 厶才一 バ- 
逃げの びた？ 



f 



GOTO ISO 



REM 



BEE SUB 



ェ $=INKEY$ ： VX=0 
IF I$=CHR*C29 
IF I$=CHR$(2S 
IF I*=CHR$C30 
IF I*=CHR$(31 



:VY=0 

THEN VX=-1 
THEN VX= 1 
THEN VY=-1 
THEN VY= づ 



:C$= H 卜'' 
:c$= " 丄'' 

:C$="t" 



LOCATE X,Y ： PRINT ' 

X=X+VX 
Y=Y+VY 

P=SCREEN(:X，Y:) 

IF P=43 
IF P=42 OR P=236 
IF P>32 



- < をお したの？ 
- ！?」 をお したの？ 
- A をお したの？ 

- V： をお したの？ 



'ーャ をけ すんだ あ, 



THEN GOSUB 5300 
THEN 0VER=1 < - 
THEN GOSUB 5500 



CO し OR 7 
LOCATE X，Y SPRINT C ま」 



APR 



-ぉ 花に と まった の？ 
- 毒の 花 かく まんばち？ 
- 力べ にぶつ かった の？ 

NT.' 



REM 



： RETURN "に 二 

SCORE ADD SUB 



FOR 1=1 TO 7 

し OCATE X，Y SCO し OR INT C RND (1 ：) *7+ 1) 

BEEP 1 

PRINT CHR*(22S+I MOD 4) 

BEEP □ 
NEXT 

S=S+10 :M=6 :P=0 
CO し OR 7 

し OCATE 3i0 :PRINTUSING 5S 



「キラ キラ』 P R I N 



• スコア を PR I NT/ 



REM 



： RETURN ：!：：：：：： 

STOP THE BEE SUB 
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5510 
5520 
5530 
5540 
5550 
5560 
5570 
55S0 
5600 
5610 
5620 
5630 
5640 
5650 
5660 
5670 
5680 
5690 
5700 
5710 
5720 
5730 
5740 
5750 
5760 
5770 
57S0 
5790 
5S00 
5810 
5820 
5S30 

5850 
5S60 
5870 
5900 
5910 
5920 
5930 
5940 
5950 
5960 
5970 
5930 
5990 
6000 
6010 
6100 
6110 
6120 
6130 
6140 
6150 
6160 
6170 
6180 




-動 くの やめよ うつと 



REM 



： RETURN ：：：：：：：：：： 

NOT MOVING BEE SUB 



FOR 1=1 TO 10 

BEEP 1 :BEEP □ 
NEXT 



r ビー j 



M=M-1 



REM 



： RETURN ：：：：：：：：：： 

YES MOVING HORNET SUB 一一 



VX=SGNCX-X1) 
VY=SGNCY-Y1) 



LOCATE XliYl ： PRINT 



-ャ をお いかける よ う に 動かしち やう 
く まんばち をけ す 



X1=X1+VX 
Y1=Y1+VY 

P=SCREENCXliYi:) 

IF P=ASC(C$) THEN OVER 

CO し OR 7 
し OCATE XI, Yl ： PRINT ， 



- マー ャ をた ベた かな？ 
-く まんばち を P R I N 1 



REM 



： RETURN ：：：：：：：:: 

PRINT F し OWER SUB 



R=INT(RND(1)*30) 

IF R>5 THEN RETURN 
IF R>0 THEN D$="+ M 
IF R=0 THEN D$="* n 

LOCATE INTCRND(l) *37+ 1) ? INTCRND C l)*21+2 ) 
CO し OR INTCRND(1)*6+1) : PRINT D% 



たま 



P R I 



にお 花 を 
しちやう 



：：：：!：：：：： RETURN ： ： ！ 
REM 

し INE( 1) -(38,23) ，' 



SUB- 



i3,BF 



画面 をぬ りつぶ す. 



し OCATE 6i 
し 0CATE 10， 

CO し OR 5 
し 0CATE 4, 



： CO し OR 
： CO し OR 



： PRINT 



！ PRINT STRING* (： 25 1 "！") 
-"PRINT "| YOU SUCCEED 



「マー f」 八， r TIME 0VER」 二 す "ノ チヤ'' 
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HONEY BEE 



6190 
6200 
6210 
6220 
6230 
6240 
6250 
6260 
6270 
62S0 
6290 
6300 
7000 
7010 
7020 
7030 
7040 
7050 
7060 
7070 
70S0 
7090 
7100 
7110 
7120 
7130 
7140 
7150 
716D 
7170 
7 ISO 
7190 
7200 
7210 
7220 
7230 
7240 
SOOO 
SO 10 
8020 
8030 
S040 
8060 
8070 
8030 
S090 
8100 
8110 
8120 
8130 
8140 
S150 
S160 
8170 
8180 
8190 
8200 



LOCATE 4» 9 ： PRINT ' 'ゥ マテ" r 7 マン 八" チ」 カラ ニケ" マヮ •: ノテ r S" 
LOCATE 4， 11 SPRINT リ」 ラ ァ' リメ ルコ卜 力" テ" チマ シタ 《> 3 カツ タ！" 

CO し OR 7 

し OCATE 3i 1A ： PRINT "****•«• PUSH ON し Y USD KEY ！ 



WHI し E INKEY$<>"5" 

R=RND(:1:> 
WEND 



'• ージ 



： 一入 力まち 



：：：：：：!：：： RETURN ：：：：：： 

REM - GAME OVER SUB 



FOR 1=135 TO 128 STEP 一 1 
BEEP 1 

し OCATE X，Y =PRINT CHR$CI) 
BEEP □ 
NEXT 



- 爆発〃 



CO し OR 4 
し OCATE 5， 7 
し OCATE 5， 3 
し OCATE 5, 9 

COLOR 7 
し OCATE 5» 11 



-PRINT 
： PRINT 
:PRINT 



I つ H III I H 

I I 上 I 1 L_J ' I 



I I I I H 

I I I I J 1 X. L-l 



： PRINT PUSH ONLY HSU KEY! 



WHILE INKEY$<>"s" 

C=INTCRNDCi:)*7+l) 
しェ NEC 3i 5：)-(：36, 13) 
WEND 

IF S>H THEN H=S 



，C，B 



ニー 入力 まち 



RETURN 



REM 



-- DEMONSTRAION SUB 



し OCATE ： 三;， 0 : 
し OCATE 14,0 : 
し OCATE ： 三:， 1 ： 
し OCATE 0，3 
PRINT -PRINT 
PRINT ： PRINT 
PRINT ： PRINT 
PRINT ： PRINT 
PRINT ： PRINT 
PRINT ： PRINT 



CO し OR 1 
CO し OR 7 
CO し OR 1 
SCO し OR ！ 
" マー T」 
"ゥ 八シ" メ 

"'.,， コヮィ 
" サ ァ！， ' 
ラレ： T .1' ： 



： PRINT 
"-PRINT 
： PRINT 



ん 



"/J"+STRING$(19 9 
" HONEY - BEE " 
STRINGS (22 ， 『" :） 



リ + 'T/" 



リ八" チ ノ 「オンす 
7 「5. 1 リ」 ラ ァ' リメ 二 
ォ 八す 八 "タケ」 二八 「S 'リ j 

「フマ ン八 "チ j 力" rr?/r m 

マー f」 /" 「ォ 八" T タケ」 
" 「S 'リ j J ァ' リメ ラレ ル テ 



□jo 7-r 八， 宁 3 

カク I し:] 卜 二 ナリ 7 シタ 《» 

力" ィ •: つ r ィ アル カヮ 

ラ 八' ソテ ンテ" ス! > 

テ" , 「 フ マン 八" チ 」 二 

シ 3ゥ 力 7 



し OCATE 
し OCATE 
し OCATE 
し OCA'TE 
し OCATE 
し OCATE 
し OCATE 



19， 4 
10， 6 
7» 8 
8， 10 
7， 12 
16i 12 



s CO し OR 


2 


： PRINT 


- 

づ 


'•CO し OR 




： PRINT 


"オンす ノ 3" 


： CO し OR 


6 


： PRINT 


"ST' 


： COLOR 


A 


SPRINT 


" ォ /) す 'V タケ 


： CO し OR 




=PRINT 


" クマ ン八 "チ" 


： CO し OR 


3 


： PRINT 




： CO し OR 


6 


： PRINT 


' 'ォ八 す 八、、 タケ'' 



ゲームの 説明 
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8220 
8230 
8240 
8250 
8260 
S270 
S2S0 
8290 
8300 
8310 
8330 
S340 
8350 
8360 
8370 
8380 
S390 
8400 
3410 
8420 

8440 
S450 
8460 
8470 
84S0 
S490 
S500 
8510 
S520 
；3530 
8540 
3550 
S560 
3570 
8580 
S590 
： 三る 00 
8620 
S630 
3650 
8670 
S6S0 
8690 
8700 
8710 
8720 
8730 
8740 
8750 
8760 
8770 
8780 
8790 
S800 
8810 
8820 



し OCATE 0«16 SCO し OR 6 

PRINT " r-«<CAST 

FOR 1=1 TO 6 
PRINT "I 
NEXT 

PRINT 



-«<KEY 



CO し OR 7 
し OCATE 32 i 17 



ワク を P R I N 



し OCATE 
し OCATE 
し OCATE 
LOCATE 
し OCATE 

SYMBO し 
SYMBOL 
SYMBO し 
SYMBO し 



32， 1: 三： 
32， 19 
21»2D 
21,21 
21,22 



： PRINT 
: PRINT 
: PRINT 
: PRINT 
: PRINT 
'■PRINT 



(36*16,21* 
(33*16i IS*! 
(33*16,21*8 



>CHR$(29 
>CHR$C2S 
»CHR$(30 
>CHR$C3'i 



I I I I I I 

i — i i — i i — i 

，2， 1，2 
, 2 ， 1 r2 



-キー 操作の 説明 



し OCATE 
CO し OR 7 ： 
CO し OR 7 ： 

し OCATE 
CO し OR 6 ： 
CO し OR 7 ： 

し OCATE 
CO し OR 5 ： 
CO し OR 7 ： 



2， 1:3 

PRINT 

PRINT 

•2， 20 

PRINT 

PRINT 

2,22 

PRINT 

PRINT 



7-r 



「ク マン/ r ミ 



ォ/ び 



- 登場人物の 説明 



CO し OR 7 

し OCATE 5i24 ： PRINT PUSH ON し Y 匚 SH KEY 



D$= 



HONEY ■ BEE 



WHI し E INKEY$<>"s" 

D$=RIGHT$CD$, 10)+LEFT*CD$ 9 1) 

LOCATE 14»0 SCO し OR 7 ： PRINT D$ 

R=RNDC1.) 
WEND 



入力 まち だよ お 



FOR 1=1 TO 50 

BEEP 1 :BEEP □ 
NEXT 

し OCATE 0,24 

FOR 1=1 TO 25 

PRINT 
NEXT 



ビーた 



- 画面 をキ レイに しちや うんだ あ, 



RETURN 



REM 
REM 
REM 



FORESIGHT P し ANNING SECTION 




10 月 30 曰 （土） くもり 

う 一ん、 ねむたい よお 一/ 

ほんと、 はるみの あたま 『ボケ ーア』 つてして ます。 

はやぐ 『フカ フカのお ふとん』 にもぐ りこん じ やいたい ッだ. 

そラ いえば、 きのう 『いずみ』 は、 きょう 『がっこう をお やす 
み,』 しちやい ました。 

だから、 みんなで 『いずみ ンち』 に 『おでん わ ルン ルン ダ』 した 
ん です。 

『いすみ』 は、 きのう 『1 曰 じゅう』 泣いて たんだって ェ。 かわ 
いそ 一 だ 

でも、 『元気に なつち やった,』 から、 『月よう び』 から は、 ち 
やあんと 『がっこう』 に < るそう です。 よかった あ Z 

それから、 きのうの はなしに なつち やうけ ど、 よる 『テレビ』 に 
『教授 （もつ ち ろん、 丫 MO の 「坂 本さん」 のこと デス） 』 がで て 
たんです。 

もう、 しっかりと 『あたま を ボー ズダ』 にしち やって、 ェ ライア 
でも、 そこが とっても 『カヮ イイ 7』 の。 ゥフッ Z 

それじゃ あ、 はるみ 『お ふとん』 にもぐ つち やい ます。 よかった。 
おやすみ なさ 一いだ 
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18 オリエンテーリング 1300 

この 『ゲーム』 は、 『森』 にかくされ てる [ 'ハタ』 を 『コンパス』 を 使 
つて 『時間 内 7』 にみ つけだす つてい う 『オリエンテーリング』 ゲームで 
一す。 

ねッ ？ 『ほんもの』 つぼいで しょ ？ 
『都会の 風』 にあき たと き、 『自然の かおり』 が こいしく なった とき、 
ぜひ あそんで みて く ださい。 

• あそび かた 

えと、 この 『ゲーム』 を RUN すると 『画面』 は 写真 O みたい に 『ゲ一 
ムの 説明』 が 3 R | NT され ま 一す。 ェ ライ ； 

この 『ゲームの 説明』 をよ 一く 読んで から 『小文字の s 』 を タイプす る 
と、 ゲームが 始まって 『画面』 は 写真 0 みたくな つち やうんで す。 

この 『画面』 にある 〈 〉 は 『ひと』、 く 〉 は 『森の 木』 です。 

ゲーム 内容 は、 『画面』 のど こかに かくされ てる 『みえない ハタ』 を、 
『コンパス』 を 使って 『13 コ』 みつけち やうって いうの なの。 

『コンパス』 は、 かくされ ちゃって る 『ハタ』 と 『ひと』 と 力く 『夕テ に 
ならんで る』 と く | 〉 力、'、 『ョコ にならん でる』 と く 一〉 が PRINT さ 
れ るよう になって るから、 うまく 利用して ね。 

こうやって、 『コンパス』 を 使って、 ひとつ 『ハタ』 をみ つけだす とス 
コアに 『100 点 プラス,』 されて、 また 『新しい ハタ』 が どこかに あらわれ 
るから、 それ を また 見つけだせば いいの。 

こういう ふうに して 『13 コ』 ハタ をみ つけち やえばい いんです。 

でも 『時間 内』 に 全部み つけられな いと 『ゲームオーバー. に] で 一す r 

ゲーム を PLAY してて、 どうしても、 どこに あるの かわかん なかった 
ら ^屬 キー をお してく ださいね。 

『ハタ』 の 場所が 変つ ちゃい ます。 （そのかわり、 残りの タイムが すつ 
ごく 減つ ちゃい ます。） 
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G プログラム 'リスト 



10 
20 
30 
40 
50 
60 
70 
SO 
90 



REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 



************************ 
*#* *** 

ORIENTARING 1300 *** 
*** 

*** By *** 

*** HARUMI TAKAHASHI *** 
*#* 普 ** 

**** 普 ************* 普 * 长长 景长 



-R E M 文 



100 DEFINT A-Z 

110 WIDTH 40 1 25 =CONSO し E 0 i 25 i □ ？ □ 



120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

2: 三 :0 

290 

3C30 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 

510 

520 

530 



CO し OR 



，0 ： PRINT CHR$C12.) •， 



- 初期設定 



GOSUB 3000 



- ゲームの 説明 をし ちゃうん た あ 7 



=□ :T=50 :X=19 :Y=13 :C$=-'*H " :X1=0 :OVER=0 



- 変数の 設定 



REM 



COLOR 7,0 : PRINT CHR$(12) ； 



- 画面 をキ レイに しちやおう. 7 



PRINTUSING 



： SCORE 



しェ NEC 1, 
しェ NEC' 3， 

CO し OR 
LOCATE 
し OCATE 
し OCATE 
LOCATE 



1：)-(37»24) ' 
3) -C35,22) 



□ II 

, 7 ? BF 



::MAX #####3" 5H 



1 

37， 1 
37i24 



1 ： 



PRINT 
PRINT 
PRINT 
PRINT 



- ワクの 角に かざりつけ しちやう 



CO し OR 6 
し OCATE 2, 2 ： PRINT "r' 

FOR 1=3 TO 22 

し OCATE 2,1 ： PRINT 
し OCATE 36， I SPRINT 

NEXT 

LOCATE 2? 23 "-PRINT "い 



+STRING$(33, 



-":)- 



ワクの 中に 線 を いれる 



FOR 1=1 TO 200 

し OCATE INTCRND(l)*33+3) 
CO し OR 4 SPRINT 

NEXT 



INT(:RND(l)*20+3) 



森の 木 を P R I N 



FOR 



=24 TO 



CO し OR 5 
し OCATE 0， 
し OCATE 38 i 



STEP 



: PRINT CHR$C134) ； 
： PRINT CHR$(13A) ； 



- メーター を P R I 
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ORIENTARING 1300 



540 

550 

560 

570 

580 

590 

60D 

610 

1000 

1.01(3 

1020 

1030 

104G 

10 r 30 

1D60 

1070 

1GS0 

1.090 

1100 

1110 

1120 

113D 

1140 

1150 

1160 

1170 

1130 

119C3 

1200 

1210 

1220 

1230 

1240 

1250 

1260 

1270 

1280 

1290 

1300 

1310 

1320 

1330 

1340 

1350 

1360 

1370 

1380 

1390 

1400 

1410 

1420 

1430 

1440 

1450 

1460 

1470 

5000 



FOR J=l TO 10 

BEEP 1 :BEEP 0 
NEXT 

NEXT 

LOCATE X,Y i CO し OR 7 : PRINT C* 

REM - MAIN し OOP - 

WHILE! OVER=0 



ひと を P R 



I*=INKEY$ ： VX=D 
IF I$=CHR$C29 
IF I き CHR お. 2: ョ 
IF I$=CHR$C30 
IF I$=CHR*C31 



THEN VX=-i sC*="l ' 

THEN VX= 1 :C*-"h' 

THEN VY=-1 '上' 

THEN VY- 1 iO-'i-' 1 



< をお したの？ 
> をお したの？ 
A をお したの？ 
， をお したの？ 



LOCATE X , Y ： PRINT " " 

X=:X+VX 
Y-Y+VY 

P^SCREEN(XiY) 

IF P=255 丁 HEN GOSUB 500D 
IF P >32 THEN GOSUB 5200 



CO し Ok 7 
LOCATE! X?Y 5 PRINT 



- ひと をけ す 



- ひと を P i 



IF" Xl^O THEN GOSUB 

IF X = X1 THEN D ぎ' i " 
IF" Y^Yl THEN 

LOCATE 20,0 ： COLOR 5 ： PRINT D$ 



T=T+1 

IF T^> 12：00 THEN OVER= 



-ハタ を 取った の？ 

-な にかに ぷ つかつ ちゃった' 



、タが 表示され てない の？ 



| ン ハス 作動, 



タイム カウン 卜 



CO し OR 1 

LOCATE 0»T/50 ： PRINT CHR$C134:) 5 
し OCATE 3S ? T/5Q ： PRINT CHR$(134:) 5 



- メーター P R I N 



IF I$= 
WEND 



THEN GOSUB 5700 



、タの 位置 を かえる 



IF 0VER=1 THEN GOSUB 6200 
IF 0VER=2 THEN GOSUB 6000 



ゲ 一厶 オーバー？ 
13 コ とった？ 



GOSUB 7000 

：：：：：：：：：： GOTO ISO ：：：：：：：：：： 
REM 
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5010 
5020 
5030 
5040 
5050 
5060 
5070 
5 ひ 三 :0 
5035 
5090 
5100 
5110 
5120 
5130 
5140 
5150 
520(3 
5210 
5220 
5230 
5240 
5250 
526Q 
3270 
52SD 
5290 
5300 
5400 

5420 
5430 

5460 
5470 
5480 
5490 
5500 
5510 
5520 
5530 
5540 
5550 
5560 
5570 
5580 
5590 
5600 
5610 
5620 
5630 
5640 
5650 
5660 
5670 
5700 
5710 



FOR 1=1 TO 10 

BEEP 1 :BEEP □ 
NEXT 



:X1=0 :P=32 

BEEP 1 



ビー J 



CO し OR 7 

LOCATE 8,0 :PRINTUSING n #####" ?S 
BEEP □ 



- スコア を 表示 



IF" B=--1300 THEN 0VER=2 

：： = ：：：：：：： RETURN ： - ： s : s : : ; 

REM - —— STOP THE MAN SUB 



FOR 1=1 TO 5 

BEEP 1 =SEEP i コ 
NEXT 



-13 コ とった *? 



Y=:Y — VY 



-動 くの やめる 



：：：：：：：：：： RETURN 
REM 

FOR 1=100 TO □ STEP う 



SUB 



BEEP 1 
FOR 、 



TO I :N£XT 



BEEP 0 

FOR J=l TO I JNEXT 

NEXT 
F し 

WHI し E F し AG=0 

X1 = INT (: RND(l ')*33+3) 
Yl = INT(RND(:i:)*20+3) 

P=SCREEN(:X1，Y1:) 

IF P=32 THEN F し AG=1 

WEND 

し OCATE X1»Y1 ： PRINT CHR*C255) 
：：：：：：：：：： RETURN ：：：：：：：：：: 

REM - WARP THEN POINT SUB - 



、タの 位置 をき める 



、タを P R 



ORIENTARING 1300 



5720 
5730 
5740 
5750 
5760 
5770 
5780 
5790 
5: 三 :0〔〕 
5810 
5S20 
5S30 
5: 三 :40 
5850 
5S60 
5：=：70 
5SS0 
5890 
5900 
6000 
6010 
6Q2D 
603D 
6040 
60f>0 
6060 
6070 
60S0 
6090 
61GD 
6110 
6120 
6130 
6140 
6150 
6160 
6200 
6210 
6220 
623D 
6240 
6250 
6260 
6270 
6280 
6290 
6300 
6310 
6320 
6330 
6340 
6350 
6360 
6370 
6380 
6390 
6400 



FOR 1=1 TO 20 

し OCATE XI, Yl = CO し OR INT C RND C 1 ) *7+ 1 ) 
BEEP 1 

PRINT CHR$ C 228+1 MOD A) 
BEEP □ 

NEXT 



- キラ キラと 爆発, 



LOCATE Xli Yl -PRINT " " 

X1=0 :T=T+200 

しェ NEC 1 ) - ( 0,1/50) ,CHR$C134:) - 

し 三:， 1)-(：38,1/50：) ,CHR*C134.) ' 

WHI し E 1NKEY$<>*' " 
WEND 



、タ をけ す 



-メーター を 表示 



REM 

L1NEC 3, 

LOCATE lh 
し OCATE 11， 



RETURN 



3)-(35,22：) ， '|' , 6 ？ BF 

=C0 し OR 4 5 PRINT STRiNG$(25, "1" j 
SCO し OR 7 ： PRINT " i YOU SUCCEED 



CO し OR 5 
し OCATE 4, 7 
し OCATE 4, 9 
LOCATE 4,11 

CO し OR 7 
LOCATE 4， 14 



： PRINT " マ卞っ >\, 'リイ 二 「モ 1 ノ」 ノ 丁 力 カラ 
： PRINT "ノ 「八 タ」 1 リ々 ル U 卜 ； T テ" 中 マシタ 0 
： PRINT " オメ テ" トウ! ！ 



PRINT PUSH ONLY 匚 SH KEY 

：：：：：：：：：： RETURN ：：：：：：：：：： 

REM - GAME OVER SUB - 

FOR 1 = 135 TO 12: 三： STEP - 1 
し OCATE X，Y =C0 し OR 7 



成功の メ ッ セージ 



BEEP 1 

PRINT 
BEEP □ 

NEXT 

CO し OR 3 
し OCATE 5， 
し OCATE 5， 
し OCATE 5i 

CO し OR 7 
し OCATE 5，'. 

しェ NEC 3， ！ 



CHR$(I) ： 



- 爆発〃 



： PRINT " 厂 
： PRINT M | 
： PRINT 'に 



I つ HH I I 

I I J_ J-1.L 



H 



I I I I H 

i — i i — i j — i j_ i_i 



SPRINT PUSH ONLY 匚 SII KEY! 

-(35， 13：) ， ，6，B 
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6410 
6420 
6430 
7000 
7010 
7020 
7030 
7040 
7050 
7060 
7070 
7080 
7090 
7100 
7110 

sooo 

8010 
3020 
： 三: 030 
8040 
8050 
S060 
： 三: 070 
： 三: ひ 三 :0 
S090 
： 三: 100 
8110 
： 三: 120 
： 三: 130 
13140 
S150 
S160 
S17Q 
31 80 
8190 
： 三: 200 
S210 
8220 
8230 
S24Q 
3250 
8260 
S270 
S280 
8290 
8300 
3310 
8320 
8330 
8340 
8350 
8360 
8370 
S380 
8390 
S400 
S410 



REM 



： RETURN ：：：：：：： 

WAIT INPUT SUB 



WHI し E INKEY$<>"s 

R=RND(:1:) 
WEND 

IF S>H THEN H=3 
PRINT CHR$(7) ； 



-入 力まち 



、イス コア 登^ 



RETURN 



REM 



LOCATE ： 三:， 0 ： COLOR 1 ： PRINT "/J " +STRIN(5$ (： 22 ， " 讕'' ：) + " に/'' 
LOCATE 12,0 ： COLOR 7 ： PRINT " ORIENTARING- 13G0 " 
LOCATE S, 1 :C0 し OR 1 s PRINT STRINGS (: 25 , :) 

し OCATE 0^3 : CO し OR 5 

PRINT ： PRINT " コノ rGAMEj 「でり j 二 カフ サレ チヤ': /テ1 レ '"ノ V ヌ」 ラ 

PRINT ： PRINT " 「コ ン 八 1 'ソ カッテ， 「 : ノ、、 カンす イ」 二 5' リ勺タ "ス ツ ティ ゥ 

PRINT ： PRINT "「オリエンテーリング、、」 ケ 、'一 厶 テ" 一 ス《> 

PRINT SPRINT " コノ 7 e CI / 7 、ラ厶 八， カァリ 「オン モノ」 ッ市 e イノ！' 

PRINT SPRINT " 「卜 カイ ノ 力 t" j 二 ァ千タ 卜 午， 「シ 1!":ノ ノ 力 オリ」 力" 

PRINT ： PRINT "コ イシ フ ナ •: ノ タ卜宁 二， 卜、、 ゥソ" ！！ 



し OCATE 






に 0 し OR 


2' 


： PRINT 


"GAME" 


し OCATE 


15， 




二 CO し OR 


4 


SPRINT 


"モリ" 


し OCATE 


32， 


4 


= CO し OR 




： PRINT 


つ 、マ,' 


し OCATE 


1 ， 


6 


： CO し OR 




SPRINT 




し OCATE 


17, 


6 


： CO し OR 


3 


SPRINT 


"シ" カンす. r' 


し OCATE 




12 


= CO し OR 


6 


=PRINT 


"トカイ ノ 力 tr " 


し OCATE 


24 ? 


12 


ば 0 し OR 




： PRINT 


" シ tr ン ノ 力 オリ，' 



ゲームの 説明 



し OCATE 0， 16 = CO し OR 6 

PRINT "r~«<CAST 

FOR 1=1 TO 6 
PRINT "| 
NEXT 

PR ェ NT 



r— <«KEY 



ワク を P R 



CO し OR 
し OCATE 
し OCATE 
し OCATE 
し OCATE 
し OCATE 
し OCATE 

SYMBO し 
SYMBO し 
SYMBO し 
SYMBO し 



7 

32， 17 
32， 18 
32， 19 
21»20 
21,21 
21，22 



： PRINT 
: PRINT 
: PRINT 
:PRINT 
: PRINT 
SPRINT 



i i i i i i 



(30*16i21*8) ,CHR$C29) ，2，1»2 
C36*16,21*S) ，CHR$(:2: 三::） ，2， 1，2 
(33*16, 1S*8) ,CHR$(30) ,2,1,2 
C33*16i21*8) , CHR$C31) ,2， 1»2 



- キー 操作の 説明 



ORIENTARING 1300 



8420 
S430 
8440 
8450 
S460 
S470 
S4SD 
S490 
8500 
S510 
8520 
•3530 
8540 
8550 
8560 
8570 
S580 
8590 
S600 
8610 
S620 
8630 
S640 

8660 
3670 
S6S0 
S690 
S7D0 
8710 
8720 
8730 
8740 
8750 
S760 
： 三: 770 
S780 
S790 
： 三:: 三: 00 
SS10 



し OCATE 2, 18 
CO し OR 7 SPRINT 
CO し OR 7 ： PRINT 



し OCATE 
CO し OR 4 ： 
CO し OR 7 5 

し OCATE 
CO し OR 5 : 
CO し OR 7 : 



2， 20 

PRINT 

PRINT 

2? 22 

PRINT 

PRINT 



ひ 



「モリ ノ 



r 3y>Y 7. j 



- 登場人物の 説明 



CO し OR 7 

し OCATE 5,24 ： PRINT PUSH ONLY 匚 SH KEY 



D$=" ORIENTARING • OOO " 

WHI し E INKEY$<>"s" 

D$=RIGHT$CD$- > !L7:)+LEFT$(:[)$， 1:) 

LOCATE 12 ，0 に0 し OR 7 ： PRINT D$ 



R=RND(:1:) 
WEND 

FOR 1=1 TO 50 

BEEP 1 :BEEP □ 
NEXT 

し OCATE 0,24 

FOR 1=1 TO 25 

PRINT 
NEXT 



： 一入 力まち 



J 



画面， をキ I 



. ちゃうん た あ, 



RETURN 



REM ========================== 

REM FORESIGHT PLANNING SECTION 
REM ============================ 
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この 『ゲーム』 は、 はくと ジャンプ 力 力く 『3 倍ア』 に ふえる 『ジ ヤン ピ 
ング 'シューズ』 を はいて、 『エイリアンさん』 を とびこして やっつけち 
やうって いう ゲームな の。 

『エイリアンさん』 を 『とびこして、 やっつけ ちゃう 7』 なんて、 ちょ 
つび りか わって て才 モシ 口そう でしよ？ 

もちろん、 すつ ごく 『才 モシ ロイ,』 ん だから ア もう〃 

• あそび かた 

えと、 しちやう と 『画面』 に は 写真 O みたい に 『ゲームの 説明』 
が PR I N され るんで す。 

この 『ゲームの 説明』 をよ 一く 読んで から 『小文字の s 』 を タイプす る 
と、 ゲームが 始まって 『画面』 は 写真 0 みたくな つち やい ま 一す。 

『画面』 にあら われた く > は 『ひと』 、『く 〉 は 『エイリアンさん』 
で 一す。 （ 『エイリアンさん』 は 4 ヒキ あらわれます） 

『地面』 く > で 『5 か 所 だけ,』 色が 『厶 ラサ キ〃』 になつ ちゃて る 
とこが あるで しょ？ ねッ？ 

この 『ムラ サキ いろ』 になつ ちゃって ると こで、 『エイリアンさん』 力く 
『動く 方向 を かえち やう,』 ようになつ てるの。 

それから、 『エイリアン さんが あらわれる』 とこ も、 この 『ムラ サキぃ 
ろ』 のと こだから 気をつけ てね。 

さ 一て、 二の 『エイリアンさん』 を やっつけ ちゃうた めに は、 『ェ イリ 
アンさん』 が 図 みたい に 『となり ァ』 にきたら キー を 押し 
て ジャンプ させて、 『エイリアン さんの 上に のっかつ ちゃう 7』 ようにす 
れ ばいいんです。 

うまく 『エイリアンさん を やっつけた,』 ら スコアに 『100 点 プラス』 さ 

れて、 また 『新しい エイ リ アンさん が あらわれ ちゃう •，』 の。 恐怖/ 

こうやって 『時間 内』 に 『エイリアンさん』 を 『20 ピ キ〃』 やっつけち 

やうと 『エイリアンさん』 は 『こうさん ア』 しちやい ます。 やった あ〃 

でも、 『エイリアンさん』 に 食べられち やったり、 時間が なくなつ ちゃ 
うと 『ゲーム オーバ一,』 で 一す。 みなさん、 がんばって くださいね。 
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♦ 写真 €) あと l ピキだ あ, 
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o プログラム • リス 卜 



□ 
□ 
□ 

□ 
□ 
□ 
□ 
□ 
□ 

□□ 

10 
20 
30 
40 
50 
60 
70 
SO 
90 
□□ 
10 
220 
230 
240 
300 
310 
320 
330 
340 
350 
360 
37D 
3S0 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
530 



REM ****************** 
REM *** 

REM *** <JUMPING A し IEN2> 
REM *** 
REM *** 

REM ♦** HARUMI TAKAHASHI *** 
REM *** 
REM 
REM 

DIM X<4) iVC4) iC$C4) 
DEFINT A-Z 

WIDTH 40^25 = CONSO し E 0,25， 0,0 
CO し OR 7,0 ： PRINT CHR$C12) ； 



-R E M 文 



- 初期設定 



H=0 



GOSUB ： 三: 000 



S=0 :T=0 :X=19 ： Y=14 :MX=- 

FOR 1=1 TO 4 

X ( I ) =□ ： V ( I ：) =□ 
NEXT 



- ゲームの 説明し ちゃうんだ あ. 
:C$=="<" :OVER=0 



- 変数の 設定 



REM 



― PRINT CRT SUB 



COLOR 7,0 :PRINT CHR$C12) ； 
PRINTUSING " 匚:: SCORE 
LINE く 1, 15) — （37， 15:) ， "I 



画面 をキ レイに す るんだ あ . 

03 く JUMPING> 匸:: MAX ドリ h 

< 台 を PRINT, 



FOR 1=1 TO 37 STEP 9 

LOCATE I? 15 ： COLOR 3 ： PRINT 
NEXT 

CO し OR 7 
し OCATE 15 --PRINT 
LOCATE 38? 15 ： PRINT "A " 

LOCATE 16 ！: CO し OR 2 
PRINT STRING$( 1 ， "■" ) + 'V， ； SPC (35:) ; 
PRINT STRING* C 3 , ) + "^" ； SPC C31 ：) ； 
PRINT STRINGS: 7 ， ) + 'V， ； SPC (23) ; 
PRINT STRING$(:10， "國"）+ '1'' 5SPCC17) ； 
PRINT STRING$(13， "ID + 'V' 5SPCC11) ； 
PRINT STRING* (： 15 , "■ " ：) + "L " ； SPC C 7:); 



- 向き を かえる 所 を P R I N 



- 台の 端に かざ りつけ しちや' 



|"+STRING$( 1， 
i"+STRING*C 3， 
<"+STRING$C 7， 
|"+STRING$C10, 
r'+STRING$(:13， 
r'+STRING$(:15， 



し INEC 0,22)-(：38,22：) 
し INEC 0, 23)- (38 i 23) 
し INEC D-C3S, 1) 
し INE( 0, 2：)- (38 



に ， ， 2 



1 一 "，1」 
2) iCHR$C142) 



谷の 底 を P R I N T だ もんね ェ ！ 

線 を ひく , 

メーター を P R 



谷 を P I 



しち' 



154 



JUMPING ALIEN 



»24 ： PRINT 



ひくェしし5 "+STRING$C20i "0"：： 



590 CO し OR 
600 LOCATE 5 
610 ' 
1000 REM 
1010 ' 
•1020 WHILE OVER=0 
1030 ' 

1040 I*=INKEY* ： VX-0 

1050 IF I$=CHR$(:29:) THEN VX= - 1 sMX=~l sC*-"<" 
1060 IF I$=CHR*(23:) THEN VX- 1 :MX= 1 :C$=">" 
107D ' 

1GS0 LOCATE X,Y ： PRINT " " 
1090 ' 

11 00 X=-X+VX s D$=C$ 
1110 ' 
1120 
1130 
1140 
1150 
1160 
1170 
1180 



をお した 7 
をお した？ 



IF ェ$- 
IF 



AND Y=14 THEN GOSUB 5G00 ^GOTO 1150 
Y=13 THEN GOSUB 510D s GOTO 1150 



- 着地.' 



P=SCf 旺 N(.X » Y:) 

IF P>32 THEN 0VER-=1 



-やられた の？ 



COLOR 7 



sP'RINT D$ 



P=SCREEN CXCI) ， 13) 

IF P=150 THEN GOSUB 5400 "-GOTO 143G 



1190 し OCATE X- 
1200 ' 

1220 IF X=--0 OR X=3S 丁 HEN OVER^l 
123D ' 

1240 FOR 1^1 TO 4 
1250 ' 

1260 IF V C I ) =-0 THEN GOSUB 5200 
1270 ' 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
13S0 
1390 
1400 
1A10 
1420 ' 
1430 NEXT 
1440 ' 
1450 T=T+1 

1460 IF T=152 THEN OVER= 
1470 ' 

1480 し OCATE = CO し OR 

1490 ' 
1500 WEND 
1510 ' 

1520 IF 0VER=1 THEN GOSUB 6000 
1530 IF 0VER=2 THEN GOSUB 6400 
1540 ' 



-ひと を P R I N T ！! 
台から はみだし ちゃった の？ 



IF' (XC1 )-!：) MOD 9 ::0 THEN GOSUB 5700 
LOCATE X(I) , SPRINT " " 
X(:i')=XClM-V(I) 



F 3 =SCREENCX(I> , 1A) 

IF P=60 OR P=62 THEN 0VER=1 



新しく エイ リア ンを 設定？ 

う えに ひとが いる？ 

向き を かえるの？ 



- エイ リア ンを けす 



- ひと をた ベち ^ 



>た* ？ 



CO し OR 6 
LOCATE X CI) » 14 ： PRINT C$(:I) 



： イリ アン を P I 



ィ厶 • カウ： 



PRINT CHR$C142) 



- ター 作動 



-20 ヒキ やっつけた？ 



155 



1550 
1560 
1570 
15S0 
5000 
5010 
5020 
5030 
5040 
5050 
5060 
5070 
5100 
5110 
5120 
5130 

5150 
5200 
5210 
5220 
5230 
5240 
5250 
5260 
527D 
5280 
5290 
5300 
5310 
5320 
5330 
5400 
5410 
5420 
5430 

5460 
5470 
5480 
5490 

5510 
5520 
5530 
5540 
5560 
5570 
35SQ 
5590 
5600 
570Q 
5710 
5720 
5730 
5740 



GOSUB 7000 



F —入 力まち 



：：：：：：：：：： GOTO 190 ：：：：：: 

REM • YES JUMPING SUB 



BEEP 1 

X=X+MX 
BEEP □ 



： Y=13 :D$^"| " 



，ン フ^ 



REM 

X-X-VX ： Y 



: RETURN ：：：：：：：: 

NOT JUMPING SUB 
=14 



-潛地 



REN 



'' ： RETURN ：：：：：: 

- SET A し IEN SUB 



X (•' I ••) = 1IVT C RND (• 1 ) *5 ) *9+ 1 



-エイ リ アンの 位置 をき める 



FOR J = 12: 三： TO 135 
BEEP 1 

LOCATE XCI) , 14 ： COLOR 6 ： PRINT CHR$U ) 
3EEP □ 
NEXT 



'し OCATE XCI!) , 14 ： PRINT " " 
： — = RETURN ：：：:::::; 

REM - CRASH A しェ EN SUB - 



リ アン 出現 产 



一 （不要） 



FOR J=l 丁 0 20 

LOCATE XCI) »1A : CO し OR INT C RND (' 1 ) *7+3 ) 
BEEP 1 

PRINT CHR*C22S+J MOD 4) 
BEEP □ 

NEXT 



し OCATE XCI) ， 14 SPRINT " 
V C 1 ) =□ SS=S+1Q0 



- キラ キラ 光る ！ 



ニイ リア ンを けす 



し OCATE 9,0 -CO し OR 7 :PRINTUSING "#####" ； S 
し OCATE 12+S/100,24 s CO し OR 6 : PRINT "#" ； 



- スコア を フラ. 



IF S=2000 THEN 0VER=2 



-20 ヒキ やっつけた？ 



s にに にに ： RETURN ：：：::::::: 

REM SET MOVE A しェ EN SUB 

V(I) =INT ( RND ( 1 :) *2)*2- 1 
IF X C I ：) = 1 THEN V C I) = 1 



： イリ アンの 動く 方向 をき めちゃう ァ 
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5750 

5760 

5770 

57: 三: 0 

5790 

5800 

5810 

6000 

6010 

6020 

603G 

6040 

6050 

6060 

6070 

6080 

6090 

6100 

6il0 

6120 

6130 

6140 

6150 

6160 

6170 

6180 

6190 

6200 

6210 

6220 

6230 

6240 

6250 

6260 

6270 

62: 三 :0 

6290 

6300 

6310 

6320 

6330 

6340 

6350 

6400 

6410 

6420 

6430 

6440 

6450 

6460 

6470 

6480 

6A90 

6500 

6510 

6520 

6530 



IF XCI)=37 THEN V C I ) = 



IF V ( I ：) = 
IF V C I ) = 



THEN C$ C I ) 
THEN C*CI) 



：ィ リ アンの 形 をき め るんだ もん.' 



:：：：：：：：：： RETURN ：：：：：：：：：： 

REM - GAME OVER SUB - 

FOR TO 22 

CO し OR 7 



LOCATE 



SPRINT C$ 



BEEP 1 

FOR J=l TO 10 :NEXT 
BEEP □ 

LOCATE X,I ： PRINT " " 
NEXT 
BEEP 1 

FOR I 二 135 TO 128 STEP 一 1 

LOCATE X,22 ：： PRINT CHR^CI) 
NEXT 
BEEP 0 



- ひとが 落ちる ？ 



- ひと 力く つぶれる 



FOR ] 
NEXT 



TO 



- 時間 まち 



CO し OR 6 
し OCATE !3， 7 
LOCATE 5, 8 
LOCATE 5? 9 

CO し OR 7 
し OCATE 5? 11 



： PRINT " r i ~ i i ~~ i t~i r-rn "― 
二 PRINT "I I i h~{ I I I I H 
5 PRINT " '- 1 — 1 丄 ± ~ x ~ '-- ' — 



i I I l i-l t-H 

I J I 1 J 1 X. I_J 



PRINT "■)(••«•*** PUSH ONLY 匚 Sli KEY ！ 
しェ NEC 3， 5) - （36， 13) ，"■•'， 1，B 
:：：：：：：：：： RETURN ：：：：：：：：：： 

REM - YOU SUCCEED SUB ― 

FOR 1=1 TO 4 



FOR J=135 TO 128 STEP 一 1 

BEEP 1 

LOCATE X C I ：) ， 14 ： COLOR 

BEEP □ 
NEXT 



NEXT 

FOR 1 
NEXT 



TO 1000 



'•PRINT CHR$( J ) 



- 時間 まち 



エイ リア ンを けす 
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6540 
6550 
6560 
6570 
65S0 
6590 
7000 
7010 
7020 
7030 
7040 
7050 
7060 
7070 
7080 
7090 
7100 
7110 
7120 
'7130 

-7150 
7160 
7170 
71 3D 
&'□□□ 
SO 10 
S020 
8030 
8040 
S050 
8060 
S070 
SOSO 
： 三: 090 
SI 00 
8110 
8120 
SI 30 
8140 
S150 
8160 
8170 
8180 
8190 
8200 
8210 
8220 
6230 
8240 
8250 
8260 
8270 
8280 
8290 
8300 
8310 



し OCATE 7,4 u CO し OR 4 ： PRINT STRING* (25 , "■" ：) 
LOCATE 11,4 ！: CO し OR 7 ： PRINT "| YOU SUCCEED 



REM 



: RETURN ：：：：：：：：：： 

WAIN INKEY 匚 SH SUB 



WHI し E ェ NKEY$<>''s" 

r=rnd<:i:j 

WEND 

IF S>H THEN H=S 



FOR 1=1 

BEEP 
NEXT 



TO 50 
1 :BEEP 0 



- キー入力 まち 



、イス コア 登録 



LOCATE D,2A 

FOR 1=1 TO 25 

PRINT 
NEXT 



- 画面 をキ レイに す るんだ から 



RETURN ： ： 



REM 



DEI^ONSTRAION BUB ― 



し OCATE ： 三:, 0 
LOCATE 13,0 
し OCATE 8, 1 

し OCATE 0，3 



: COLOR 1 ： PRINT VJ"+STRING$ (21， "■":) + "『/'' 
： CO し OR 7 ： PRINT " JUMPING* A し IEN " 
： COLOR 1 SPRINT STRING$ (24 , "~" ：) 



PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 

し OCATE 
し OCATE 
し OCATE 
し OCATE 
し OCATE 
し OCATE 
し OCATE 
し OCATE 



PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 



力" 「シ" 1» ン t 0 ンク" シ ユース、、」 
"JUMP! ！ j Iff 1": 八 リケチ れゥッ t 



= CO し OR 5 

" コノ r GAME」 / レ 「じ 卜 
" ラ /V-iT 「A しェ EN サン」 ラ 
"ィゥ ケ、、 ー厶 ナン テ" ス 0 

" r A しェ EN サン」 う r JUMP':!」 シテ で': パリ ケチ p ゥ テ チ ョ 

"ッ t Q リ 力 ォ モシ 0ソゥ T" ；/ 3 ？ 

" モチ0ン> ス ッコ" ク r "ォ モシ 0ィ」 ンタ w カラ！！ 



15， 
22， 



4 ： 

6 



19， 6 
2， 10 
14 ? 10 
14， 14 



CO し OR 2 
CO し OR 3 
CO し OR 
： CO し OR 
： CO し OR 
： CO し OR 
SCO し OR 
■•CO し OR 



6 
2 
3 
2 
3 
4 



： PRINT "GAME" 
： PRINT "ひ" 

： PRINT ":/"f>C°:./?" シ ユース" 

: PRINT "A し 1EN サン'' 

： PRINT "JUMP! ！ " 

： PRINT "A しェ EN サン'' 

: PRINT "JUMP ！ ！ " 

： PRINT " ォ モシ CH'" 



し OCATE 16 SCO し OR 6 

PRINT " r~<«CAST 

FOR 1=1 TO 6 
PRINT "I 
NEXT 

PRINT 



ゲームの 説明 



ベ" KEY 



CO し OR 7 
し OCATE 32， 17 = PRINT 



ワク を P I 
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8320 
S330 
8340 
S350 
8360 
S37D 
83S0 
8390 
S4D0 
84 10 
S420 
S43D 
8440 
S450 
3460 
S470 
8480 
3A90 
3500 
8510 
8520 
8530 
8540 
3550 
3560 
8570 
3580 
3590 
8600 
8610 
3620 
8630 
S640 
8650 
S66Q 
8670 
8680 
S690 
8700 
8710 
8720 
S730 
S740 
8750 
8760 
8770 
8780 
8790 
8800 
8810 
8820 



し OCATE 
し OCA 丁 E 
し OCATE 
し OCATE 
し OCATE 

SYMBO し 
SYMBO し 



32， 18 ： PRINT 

32， 19 ： PRINT 

21,20 SPRINT 
21,21 ： PRINT 

21,22 SPRINT 



SPACEI 



i — i i — i i — i 
i — i i —— i i — i 



C 30*16, 21*S) ，CHR$(:29) ，2， 
(36*16,21*8：) ，CHR$(:2: 三::） ，2， 



し OCATE 22， 21 ：： CO し OR 



し OCATE 
CO し OR 7 ： 
CO し OR 7 •' 

LOCATE 
CO し OR 6 : 
CO し OR 7 ： 

し (；) C ATE 
CO し OR 3 : 
CO し OR 7 ： 



2? 18 

PRINT 

PRINT 

2,20 

PRINT 

PRINT 

-' , 2 "' 

PRINT 

PRINT 



： PRINT "SPACE" 



ひ 



- 操作 を 説明 



-mn 卜：]」 



登場人物 を 説明 



CO し OR 7 

LOCATE 5,24 ： PRINT PUSH ONLY 匚 SI] KEY 



D$=" JUMPING- A しェ EN " 

WHI し E INKEY$<>"s M 

D*=RIGHT*(D*i 1^〉+LEFT$(D$，1) 

LOCATE 13,0 = CO し OR 7 ： PRINT D$ 



• u ビ': 



R=RND(:1:) 
WEND 

FOR 1=1 TO 50 

BEEP 1 =BEEP □ 
NEXT 

し OCATE 0,24 

FOR 1=1 TO 25 

PRINT 
NEXT 

:：:：：：：：：： RETURN 



REM =================== =：=： === ==== = 

REM FORESIGHT PLANNING SECTION 
REM ============================ 



- キー入力 まち 



- 画面 を キ レイ にしち やうから 
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to オート u~ ス圆面 ソフト) 

みなさん も 『リスト』 を 見て わかる と はるみ 思う けど、 この 『ゲーム』 

の 『ェ ライ .P』 とこ は、 なんと 『リス 卜が 14 行し かない,』 とこです。 
こういう ふうに、 『リス 卜』 力く 『1 画面』 にお さまつち やう 『プロ グラ 

ム』 を 『1 画面 ソフト,』 つてい うの。 

なんで、 こんな 『1 画面 ソフト』 なんて はるみが つくつ ちゃった かって 

いう と 『ひと りで もた く さんの ひとに プログラム を 作っても らいたい,』 

からなん です。 

こんな こと、 はるみが いうと 『ああ, カツ コ つけて るう 一〃』 つて 思 

われち や う かも 。 

でも、 このはる みの 気持ち、 ほんとの ことです。 

だって、 最近の 『ゲーム』 つて、 『カラー' グラフィック』 で、 『マシ 
ン語』 で、 『ピコ ピコ 'サ ゥン ド』 で、 『リス 卜』 がすつ ごく ながく て、 
二れ から 『はじめて ゲーム をつ くるんだ あ 7』 つてい う 人に は、 ちょっと 
ついてい けない カンジす るで し よ ？ 

だから、 『たった 「1 画面」 だって ゲームで き るんだ も 一ん 7』 つて、 
いろんな ひとに、 はるみ わかっても らいたかった の。 

たった 『1 画面』 くらいなら、 そんな 厶ッ カシク ない もん〃 

• あそび かた 

RUN しちやう と 『いきなり 7』 ゲームが 始っ ちゃうから 気をつけて/ 
ゲームが 始まる と、 写真 O みたい に 『道路』 く H 卜〉 と 『障害物』 

< 〉 力く ス IN' されち やうから 『障害物』 にぶつ かつち やわない よう 

に 『ゴール』 まで 走つ ちゃえば いいの。 カン タン 7 
でもで も、 そう カン タンに は 『ゴールイン,』 できません よお 一/ 
もしも 『障害物』 にぶつ かつち やって 『GAME OVER ア』 しちや 

つたら 『小文字の s 』 を タイプ すれば、 また 『ゲーム』 力く はじまつ ちゃし、 

ます。 
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AUTO RACE 

G プログラム • リス 卜 




寺 写真 o ゲーム 'スタート, 



- 初期設定 



-- ト バイ をけ す 



DEFINT A-Z:WIDTH 40,20 
C0NS0 し E Ch20,0 9 l:PRINT CHR$(12) 5 =X=2: 
FOR 1=0 TO 199 = ェ$= ェ NKEY$=BEEP 1 
し OCATE :PRINT " " sBEEP 0 

IF I*=CHR*(29) AND X>1 THEN X = X - 1 
IF I$=CHR$(2S) AND X<4 THEN X=X+1 
IF SCREENCX7 5)>32 THEN 3D 
し OCATE □， 19 ： PRINT "-| に 

LOCATE X" ト =PRINT "U" 
LOCATE RNDC1)*4+1 7 18 ！: PRINT "•+.'， 
IFI==1S6THEN L_OCATEO, 18sPRINT"—G0Al_-'' 
NEXT 

LOCATE 9,9 ： PRINT GAME OVER ****"SPC C65) ； "C: SCORE' 

；, つ，， 

WHI し E ェ NKEY$<>"s" :WEND ： GOTO 10 



た 7 
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► 申し込み 先 

〒101 東京都 千代 田 区 神 田 神 保 町 卜 52 ナツメ 社 • 振替 口座 東京 3-58661 



[収録した ゲーム] 



ル パン 3 世 ゲーム 

e ~ まんびき 少年 ゲーム 
© ギャラ クシ 一 • ウォー ズ 
o —— ペンキ マン 
e ~~ ギャング • ゲーム 
o —— スペース • シップ 
o — スキー 'スラローム 

O —— M A R S 

O —— しば 刈り ゲーム 

® 宇宙の ゴミ やさん 



® —— トムと ジェ リー 

® —— はやうち マック 

® ~ とべと ベ こ う もりく に/ 

© —— AUTO RACE 

© —— みつばち マー ャ のぼう けん 

© 地雷 突破 作戦 

® ^ 月面 着陸 

® アニマ ノレ • /、 ン ター 

® ~ 平城京 エイ リ アン 
% —— QU I C K 



© カセッ ト テープの お求め 方法 

► マイコン ショップ， 電器 店で 発売して おります が， ない 場合 は， 害 店 または 直接 小社へ お 
申し込み く ださい。 

► 小社へ お申し込みの 場合 は， 『PC-600I はるみの ゲーム' ライ ブラ リー PARTII' カセッ 卜テー 
プ』 と 明記のう え、 定価 2500 円と 送料 240 円 を 添えて 現金 害留か 郵便振替 を ご 利用 く ださい' 
► 申 し 込み 先 

〒101 東京都 千代 田 区 神 田 神 保 町 卜 52 ナツメ 社 書 振替 口座 東京 3-58661 
[収録した ゲーム] 



o 


一一 サスケ 




一 キング コング J r 


© 


一 ペンギン • ランド 大 混乱/ 


© — 


一 U FO シ ユー ティング 


© 


一 オリエ ン テーリ ング 


© - 


一 オリエ ン テーリ ング 1300 


o 


一 ひねくれ ランナー 


© — 




© 


一 ブロック くずし 


© — 


ビル ディ ング • クラッシュ 


© 


一 スーパー サイ モン 




一 チャイナ • シン ドローム 




一 タイプ 練習 ゲーム 編 


® ― 


一 クッシ ョ ン • ピン ボール 


© 


一地 底 探検 ゲーム 


©- 


一お いかけ マック 


© 


—ジ ヤン ビング • エイ リ アン 


©- 


エイ リ アン ハンター （特別 編) 




一一 カーレース 


©— 


一 平安京 エイ リ アン （特別 編） 




せ ザ # 



プログラム 25 本で なんと 

たったの 2500 円 



© カセット テープの お求め 方法 

► マイコン ショップ， 電器 店で 発売して おります が， ない 場合 は， 害 店 または 直接 小社へ お 
申し込みく ださい。 

► 小社へ お申し込みの 場合 は， 『PC-800I はるみの ゲーム. ライブラリー • カセット テ— 
フ』 と 明記の つん、 定価 2500 円と 送料 240 円 を 添えて 現金書留 か 郵便振替 を ご 利用 く ださい。 
► 申し込み 先 

〒101 東京都 千代 田 区 神 田 神 保 町 卜 52 ナツメ 社 き 振替 口座 東京 3-58661 



© 収録 した ゲーム 



o 

o 

€> 
O 
0 
O 

o 

o 
© 

© 

<E) 



いなばの しろう さぎ 
水道管と ねずみさん 

DIVER 
PANTHER 
平安京 スキャナー 



ボスコ 二 アン 
ラリー • X 

とべと ベこう もり くん/ 
-ス へース • シップ 
ギャング ，ゲーム 
ディ ッグ ，マン 
宇宙の ゴミ やさん 
MARS 



® 



スキー • スラローム 
パチンコ 
はやうち マック 
アップ ルツ プル 
トムと ジェ リー 
QUICK 
重戦車 戦 ゲーム 
荒野の ガンマン 
ペンキ マン 
てつぼうう おくん 
みつばち マー ャ のぼう けん 
才ー ト レース 




プログラム 20 本で な、 んと 
たったの 2500 円 



® カセッ トテー フ° の お求め 方法 

► マイコン ショップ， 電器 店で 発売して おります が， ない 場合 は， 書店 または 直接 小社へ お 
申し込み く ださい。 

► 小社へ お申し込みの 場合 は， 『 F M-7-F M-8 はるみの ゲーム' ライ ブラ リー 'カセット テー 
プ』 と 明記のう え、 定価 2500 円と 送料 240 円 を 添えて 現金書留 か 郵便振替 を ご 利用 く ださい, 
► 申し込み 先 

〒101 東京都 千代 田 区 神 田 神 保 町 卜 52 ナツメ 社 鲁 振替 口座 東京 3-58661 



[収録した ゲーム] 

o スペース 'スト ラクッ 
© あるけ あるけ ゲーム 
€) スーパー サイ モン 
O タイプ 練習 （ゲーム 編） 
© ビルディング 'クラッシュ 

©MAR S 

© しば か り ゲーム 

© 宇宙の ゴミ やさん 

© 平安京 エイ リ アン （特別 編） 

© 水道管と ねずみさん 



® いなばの しろう さぎ 
© キング コング Jr. 
©E. T. 

© まんびき 少年 ゲーム 

© チャイナ • シン ドローム 

© はやうち マック 

© みつばち マー ャの 冒険 

© オリエ ン テーリ ング 1300 

©ジ ヤン ビング. エイ リ アン 

⑩ォー ト レース （ 1 画面 ソフ ト） 



